Skip to content

Instantly share code, notes, and snippets.

@dmalikov

dmalikov/pr187.hs

Created November 27, 2011 11:45
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 dmalikov/1397455 to your computer and use it in GitHub Desktop.
Save dmalikov/1397455 to your computer and use it in GitHub Desktop.
Download ZIP
Project Euler 187 (21 min)
Raw
pr187.hs
import Data.Numbers.Primes
semiPrime :: Int -> Bool
semiPrime list = 2 == (length $ primeFactors list)
semiPrimesBelow :: Int -> Int
semiPrimesBelow n = length $ filter semiPrime [1..n-1]
main = putStrLn $ show $ semiPrimesBelow (10^8)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment