FizzBuzz問題

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

 fizz = cycle ["","","Fizz"]
 
 buzz = cycle ["","","","","Buzz"]
 
 f "" n = show n
 f s _  = s
 
 main = mapM_ putStrLn $ zipWith f (zipWith (++) fizz buzz) [1..100]

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