Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- primes = 2 : primes'
- where isPrime (p:ps) n = p*p > n || n `rem` p /= 0 && isPrime ps n
- primes' = 3 : filter (isPrime primes') [5, 7 ..]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement