https://gist.github.com/803680 にインスパイアされて遅延評価を使う版を書いた。 primes = 2: sieve 3 (multiples primes) sieve x yys@(y:ys) | x == y = sieve (x+1) (dropWhile (== y) ys) | otherwise = x: sieve (x+1) yys multiples (x:xs) = xx: ms…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。