Skip to content

Instantly share code, notes, and snippets.

View hollingberry's full-sized avatar

Casper Hollingberry hollingberry

View GitHub Profile
@hollingberry
hollingberry / PrimeProductProblem.hs
Last active August 29, 2015 14:04
How many integers from 1 to 10000 can be written as the product of two (not necessarily distinct) primes?
import Data.List
import Data.Numbers.Primes
maxValue :: Int
maxValue = 10^5
uniqOrdered :: [Int] -> [Int]
uniqOrdered = map head . group . sort
possiblePrimes :: [Int]