fizzbuzz.hs

main = do sequence_ (map (putStr . (++ "\n")) (fizzbuzz 100))

fizzbuzz upper = [stringify x | x <- [1..upper]]
  where stringify n
          | n `divisibleBy` 15 = "fizzbuzz"
          | n `divisibleBy`  3 = "fizz"
          | n `divisibleBy`  5 = "buzz"
          | otherwise          = show n
        divisibleBy dividend divisor = dividend `mod` divisor == 0