Advertisement
Guest User

Untitled

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