FizzBuzz.hs

interpret = fizzbuzz [1..100]
fizzbuzz [] = []
fizzbuzz (x:xs) = checknum(x) ++ fizzbuzz(xs)
checknum x | both x      = "FizzBuzz"
           | three x     = "Fizz"
           | five x      = "Buzz"
           | otherwise   = show x
              where both x  = three x && five x
                    three x = (x `mod` 3) == 0
                    five x  = (x `mod` 5) == 0