krzysztof-w
9/28/2015 - 2:48 PM

prime.hs

prime.hs
content_copyfile_download
let pgen (p:xs) = p : pgen [x|x <- xs, x `mod` p > 0]
let nPrimes x = x `take` pgen [2..]