fizzbuzz.hs

fizzbuzz.hs

fizzBuzzer :: (Integral a, Show a) => a -> [Char]
fizzBuzzer x
        | ((x `mod` 3 == 0) && (x `mod` 5 == 0))        = "FizzBuzz"
        | (x `mod` 3 == 0)                              = "Fizz"
        | (x `mod` 5 == 0)                              = "Buzz"
        | otherwise                                     = show x

main :: IO ()
main = mapM_ putStrLn [ fizzBuzzer x | x <- [1..100]]