blob: e8d80157402cc8c919ca930101b7da928b544d7e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
-- Summation of primes
-- Problem 10
-- The sum of the primes below 10 is 2 + 3 + 5 + 7 = 17.
-- Find the sum of all the primes below two million.
main = do
print (sum $ eratos_sieve [2..1999999])
eratos_sieve :: [Int] -> [Int]
eratos_sieve [] = []
eratos_sieve (x:xs)
| x * x > last xs = x:xs
| otherwise = x:eratos_sieve [n | n <- xs, n `mod` x /= 0]
|
