Hatena::ブログ(Diary)

Haskell はスケるよ このページをアンテナに追加 RSSフィード

2006 | 04 | 05 | 06 | 09 | 10 | 12 |
2007 | 01 | 02 | 03 | 05 | 07 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 11 |
2009 | 02 | 03 | 05 | 10 | 12 |
2010 | 01 |
2012 | 12 |

2007-05-09

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]

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

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証