関数型プログラミング言語Haskell Part16
■ このスレッドは過去ログ倉庫に格納されています
0186デフォルトの名無しさん
2011/10/20(木) 22:49:20.89どうやったらこんな発想が出来る様になるんだろ。
fizz = cycle ["","","Fizz"]
buzz = cycle ["","","","","Buzz"]
f s n
| s == "" = show n
| otherwise = s
main = print $ zipWith f (zipWith (++) fizz buzz) [1..100]
■ このスレッドは過去ログ倉庫に格納されています