Instantly share code, notes, and snippets.
List of Primes:
primes = sieve [2..] where sieve (p:xs) = p : sieve [x | x <- xs, x `mod` p /= 0]