mirror of
https://github.com/correl/euler.git
synced 2024-11-30 11:09:52 +00:00
13 lines
399 B
Haskell
13 lines
399 B
Haskell
|
{- Calculate the sum of all the primes below two million.
|
||
|
|
|
||
|
|
The sum of the primes below 10 is 2 + 3 + 5 + 7 = 17.
|
||
|
|
Find the sum of all the primes below two million.
|
||
|
|
-}
|
||
|
|
|
||
|
|
import Text.Printf (printf)
|
||
|
|
import Util.Primes (primes)
|
||
|
|
|
||
|
|
main = do
|
||
|
|
printf "Sum of primes below 10: %d\n" (sum (takeWhile (<10) primes))
|
||
|
|
printf "Sum of primes below 2,000,000: %d\n" (sum (takeWhile (<2000000) primes))
|