drkcore

2010/01/26 19:37:45

エラトステネスのふるい

C/C++の課題丸投げ

sieve (x:xs) = x : sieve [y|y<-xs,y `mod` x /= 0]
prime = sieve [2..]

Comments