読者です 読者をやめる 読者になる 読者になる

morris555's diary

高校生のブログです。

Problem 7

Problem 7は10001 番目の素数を求める問題です。

primes = 2:f [3,5..]
  where f (x:xs) = x:f [y | y <- xs, y `mod` x /= 0]

main = print $ primes !! 10000

遅いです。

素数を求めるのにもっと速い方法があるはずですが…

まあ、色々な方法を探してみようかなと思ってます。