2009-06-03から1日間の記事一覧
http://projecteuler.net/index.php?section=problems&id=10 200万以下の素数の和 main = print $ foldl1 (+) (primeList 1 2000000) primeList :: Integer -> Integer -> [Integer] primeList n max = let x = nextPrime n in if x > max then [] else [x] …