if を追放ã™ã‚‹ - Life Goes OnKコンビãƒãƒ¼ã‚¿ã¨çœŸå½å€¤ã«é–¢ã™ã‚‹è©±é¡ŒãŒæŒ™ãŒã£ã¦ã„ãŸã®ã§ã€ãれを使ã£ã¦ä½•ã‹æ›¸ã„ã¦ã¿ã‚ˆã†ã¨æ€ã„ã¾ã—ãŸã€‚ æ¡ä»¶åˆ†å²ã¨è¨€ãˆã° FizzBuzz。以下ã®ã‚ˆã†ãªãƒ—ãƒã‚°ãƒ©ãƒ を考ãˆã¾ã™ã€‚ main = mapM putStrLn [ max (show n) $ fizz n ++ buzz n | n <- [1..100] ] fizz n = if mon n 3 == 0 then "Fizz" else "" buzz n = if mon n 5 == 0 then "Buzz" else "" ã¾ãšã¯ä»¥ä¸‹ã®ã‚ˆã†ã« if' を定義ã—ã¾ã™ãŒã€ã“ã‚Œã ã‘ã ã¨ã¾ã ã‚ã¾ã‚Šå¤‰ã‚ã£ã¦ã„ã¾ã›ã‚“。 Haskell 標準㮠Bool 型を使ã£ã¦ã„ã‚‹ã—ã€ãƒ‘ターンマッãƒã§çµå±€ if 相当ã®ã“ã¨ã‚’ã‚„ã£ã¦ã„ã‚‹ã‹ã‚‰ã§ã™ã€‚（ãƒã‚¤ãƒ³ãƒˆãƒ•ãƒªãƒ¼ã§æ›¸ã‘ãªã„ï¼ï¼ï¼‰ fizz n = if' (mod n 3 == 0) "Fizz" "
Karetta|Gaucheプãƒã‚°ãƒ©ãƒŸãƒ³ã‚°|「Lisp脳ã€ã®è¬Žã«è¿«ã‚‹ - Schemeプãƒã‚°ãƒ©ãƒžã®ç™ºæƒ³
Rubyã§FizzBuzzã‹ã‘ãŸã‚ˆï¼ï¼‹ã„ã‚ã„ã‚考ãˆã¦ã¿ãŸ - ミームã®æ»éª¸ã‚’å¾…ã¡ãªãŒã‚‰
åŒã˜æ—¥ã«åŒã˜å ´æ‰€ã§åŒã˜æ§‹æˆã®åŒã˜ãƒŽãƒ¼ãƒˆPCã‚’è²·ã£ã¦ã„る方発見。 - >& STDOUT
Rubyã§FizzBuzz。ã“ã‚“ãªæ›¸ãæ–¹ãŒã‚ã£ãŸã‹ã€‚。 - ã“ã®ãƒ–ãƒã‚°ã¯è¨¼æ˜Žã§ããªã„。
{{#tags}}- {{label}}
{{/tags}}