11 lines
295 B
Haskell
11 lines
295 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
|