関数型プログラミング言語Haskell
■ このスレッドは過去ログ倉庫に格納されています
0405デフォルトの名無しさん
NGNGhugs98/demos/Examples.hs でこんなもの見つけた。
hamming :: [Integer]
hamming = 1 : (map (2*) hamming || map (3*) hamming || map (5*) hamming)
where (x:xs) || (y:ys) | x==y = x : (xs || ys)
| x<y = x : (xs || (y:ys))
| y<x = y : (ys || (x:xs))
■ このスレッドは過去ログ倉庫に格納されています