■ [Haskell] どうしてプログラマに・・・プログラムが書けないのか?

なぜか流行っているらしい。

let f x "" "" = show x
    f _ y z   = y ++ z
in mapM_ putStrLn $ zipWith3 f [1..100] (cycle ["", "", "Fizz"]) (cycle ["", "", "", "", "Buzz"])