こんな事は既にやってる人がたくさんいると思いますが……
putStrLn $ show $ map (let fizzBuzz x | 0 == (x `mod` 3) && 0 == (x `mod` 5) = "FizzBuzz" | 0 == (x `mod` 3) = "Fizz" | 0 == (x `mod` 5) = "Buzz" | otherwise = show x in fizzBuzz) [1..100]
こんな感じです。ちょっとはhaskellを使えるようになってきたかな(?)
ネタがないのでこのくらいで許してください。