FizzBuzz in Haskell.

fizzbuzz.hs

fizzbuzzList = [x | x <- map fizzbuzz [1..]]
  where fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
                   | x `mod`  5 == 0 = "Buzz"
                   | x `mod`  3 == 0 = "Fizz"
                   | otherwise       = show x

main = do
  mapM_ putStrLn $ take 100 $ fizzbuzzList

無限リストにしてみた