13 lines
300 B
Haskell
13 lines
300 B
Haskell
-- The sum of the primes below 10 is 2 + 3 + 5 + 7 = 17.
|
|
--
|
|
-- Find the sum of all the primes below two million.
|
|
|
|
import ProjectEuler (primeSieve)
|
|
|
|
main = do
|
|
let result = sum $ takeWhile (< 2000000) primeSieve
|
|
putStrLn $
|
|
"Project Euler, Problem 10\n"
|
|
++ "Answer: "
|
|
++ show result
|