Project Euler Problem7
Haskellでの方法
エラトステネスのふるいを使いました
sieve :: [Int] -> [Int] sieve (x:xs) = x : (sieve $ filter ((/=0) . (`mod` x)) xs) sieve [2..] !! 10000
Haskellでの方法
エラトステネスのふるいを使いました
sieve :: [Int] -> [Int] sieve (x:xs) = x : (sieve $ filter ((/=0) . (`mod` x)) xs) sieve [2..] !! 10000