haskellに惚れた一瞬 - 計算機と戯れる日々
haskellによるFizzBuzz別解。zipWith3とcycleで気持ちよく組めました。 putStr$concat$zipWith3 (\x y z->(if x++y=="" then show z else x++y)++"\n") (cycle ["","","Fizz"] )(cycle ["","","","","Buzz"])[1..100] 嫌なんだけど mapM_の方が短くなるな。ひょっとして剰余演算禁止で最短の部類じゃない？（嘘 mapM_ putStrLn$zipWith3(\x y z->if x++y=="" then show z else x++y)(cycle["","","Fizz"])(cycle["","","","","Buzz"])[1..100]
いまさらFizzBuzz問題を[[OO厨]]がやるとどんなことになっちゃうのか - yojikのlog
ちょっと気を取り直してプログラミングな話題を。 Lisp脳でやってみよう -- Schemeプログラマの発想をJavaでやるとどんなことになっちゃうのか こちらを読んでて、逆に純度100%のOO厨気分で考えるとどうなるか考えてみた。 まずOO厨な考え方では「結果」を先を求める。1から100まで並んでるんだけど3の倍数の所は「Fizz」で、5の倍数のときはBuzzで、両方の倍数の場合はFizzBuzzが並んでる、FizzBuzzな仕様の「シーケンス」があればいい。シーケンス=繰り返し。ならばIteratorだ。 while(fizzBuzz.hasNext()) { System.out.println(fizzBuzz.next()); } こんな感じのIteratorがあればいい。過程や！方法なぞ！どうでもよかろうなのだッ！ (中略) ググってもそういうIteratrorがみつからないの
![いまさらFizzBuzz問題を[[OO厨]]がやるとどんなことになっちゃうのか - yojikのlog](https://cdn-ak-scissors.b.st-hatena.com/image/square/fc8af7295d937c560b5de3c74afb93e2034b32ed/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729901763%2F12704830469097199198%2F1365590825)
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
