Skip to content

Instantly share code, notes, and snippets.

@v6ak

v6ak/primes.hs

Created October 26, 2010 07:30
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save v6ak/646475 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save v6ak/646475 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
primes.hs
filterPrimes (x:xs) = x:filterPrimes (filter isNotDivisible xs) where isNotDivisible n = (n `mod` x) /= 0
primes = filterPrimes [2,3..]
main = print (takeWhile (<100000) primes)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment