メモ。すぐ忘れそうなので。
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 件のコメント:
コメントを投稿