HaskellでFizzBuzzやってみた

Haskell

Twitter見てたらFizzBuzzの話題が流れてたので書いてみた。

最初に考えたのがこれ。引数 n 以下のFizzBuzzを文字列にして返す再帰関数を定義した。

fizzbuzz 1 = "1"
fizzbuzz n = fizzbuzz (n - 1) ++ " " ++ case (mod n 3, mod n 5) of
    (0, 0) -> "FizzBuzz"
    (0, _) -> "Fizz"
    (_, 0) -> "Buzz"
    otherwise -> show n

main = getLine >>= putStrLn . fizzbuzz . read

もっと簡単な書き方をしてる人がいないかと思って調べたら、mapを使っている人が多い感じ。

そこでfizzbuzz関数を引数 n 一つ分の文字列を返すように変更。

fizzbuzz n = case (mod n 3, mod n 5) of
    (0, 0) -> "FizzBuzz"
    (0, _) -> "Fizz"
    (_, 0) -> "Buzz"
    otherwise -> show n

main = do n <- getLine
	  putStrLn $ unwords $ map fizzbuzz [1..read n]

unwordsで文字列の配列を" "を挟んで連結できるらしい。だいぶHaskellっぽくなったかな？

$ ghc fizzbuzz.hs -o fizzbuzz
$ ./fizzbuzz
100
1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22
 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz
 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62
 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82
 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz