fizzbuzz.hs

fizzBuzz :: (Integral a, Show a) => a -> String                                 
fizzBuzz n                                                                      
    | n `mod` 3 == 0 && n `mod` 5 == 0 = "FizzBuzz"                             
    | n `mod` 3 == 0 = "Fizz"                                                   
    | n `mod` 5 == 0 = "Buzz"                                                   
    | otherwise = show n   

-- [fizzBuzz x | x <- [1..100]]