Skip to content

Instantly share code, notes, and snippets.

@WillNess

WillNess/Bird's.hs

Created February 9, 2013 22:42
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save WillNess/4747433 to your computer and use it in GitHub Desktop.
Save WillNess/4747433 to your computer and use it in GitHub Desktop.
Download ZIP
sieve of Bird
Raw
Bird's.hs
ps = (2:).minus [3..].foldr (\p r-> p*p:union [p*p+p, p*p+2*p..] r) [] $ ps
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment