2012年8月17日金曜日

[Haskell] FizzBuzzをやる

このエントリーをブックマークに追加 このエントリーを含むはてなブックマーク

メモ。すぐ忘れそうなので。
cycleが名前長いのが気に入らない。
take 100でリスト取り出してるだけなんで要件満たしてない気もする。
bとcが空かどうかを評価する部分が気に入らない
zip3使うのが何か負けた気がする
無限リスト楽しい。

take 100 [if b=="" && c=="" then show a else concat [b,c]|(a,b,c)<-(zip3 (cycle [1..]) (cycle["","","Fizz"]) (cycle ["","","","","Buzz"]))]

0 件のコメント:

コメントを投稿