FizzBuzz.hs

module Main where

-- Infinite fizzbuzz sequence.
fizzbuzz :: [String]
fizzbuzz = [convert x | x <- [1..]]
  where
    convert s
      | s `mod` 15 == 0 = "FizzBuzz"
      | s `mod` 5  == 0 = "Buzz"
      | s `mod` 3  == 0 = "Fizz"
      | otherwise = show s

main :: IO ()
main = do
  mapM_ putStrLn $ take 100 fizzbuzz