Fizz-Buzz問題

どうしてプログラマに・・・プログラムが書けないのか?の例題をHaskellでやってみました。すでに誰かやってる人いそうですが。んー、久しぶりにHaskell使ったら結構忘れてました。

main = mapM_ putStrLn $ map f [1 .. 100]
  where
    f i
      | (i `mod` 15) == 0 = "FizzBuzz"
      | (i `mod`  3) == 0 = "Fizz"
      | (i `mod`  5) == 0 = "Buzz"
      | otherwise = show i