fizzbuzz.hs

module Fizzbuzz where

import Data.List (unlines)

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

showFizzbuzz :: Int -> IO ()
showFizzbuzz n = do
    let seq = [fizzbuzz i | i <- [1..n]]

    putStrLn $ unlines seq