FizzBuzz問題

• cf. どうしてプログラマに・・・プログラムが書けないのか?
• via 404 Blog Not Found – ブクマゴルフってどうよ?

なんか昨日からあちこちで見かけるので書いてみた。久しぶりの Haslellで。
あと，増田で剰余は使うな，と言ってるから使わない。

fizz = cycle ["","","Fizz"]
buzz = cycle ["","","","","Buzz"]

f "" n = show n
f s _ = s

main = mapM_ putStrLn $ zipWith f (zipWith (++) fizz buzz) [1..100]

あなごるじゃないから短くするのはやらない。