Skip to content

Instantly share code, notes, and snippets.

@rodrigosetti
Created April 29, 2011 04:35
Show Gist options
  • Save rodrigosetti/947841 to your computer and use it in GitHub Desktop.
Save rodrigosetti/947841 to your computer and use it in GitHub Desktop.
Haskell interpreter session: Beautiful Sieve of Eratosthenes to generate primes
Prelude> let sieve (p:ps) | p > 1 = p:(sieve $ filter ((> 0) . (`mod` p)) ps)
Prelude> let primes = sieve [2..]
Prelude> take 100 primes
@rodrigosetti
Copy link
Author

That last command shows the 100 first prime numbers

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment