FizzBuzz
ちょっとはHaskellらしく書けたかな。
map fst $ zip (concat (repeat ["","","Fizz","","Buzz","Fizz","","","Fizz","Buzz","","Fizz","","","FizzBuzz"])) [1..100]
(追記)
コメントをいただいたので、修正。
zipWith (\x y -> if x == "" then show y else x) \ (cycle["","","Fizz","","Buzz","Fizz","","","Fizz","Buzz","","Fizz","","","FizzBuzz"]) [1..100]