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]