8 lines
123 B
Haskell
8 lines
123 B
Haskell
import Lib (primes)
|
|
|
|
main :: IO ()
|
|
main = putStr $ show solve
|
|
|
|
solve :: Integer
|
|
solve = sum $ takeWhile (< 2000000) primes
|