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 遅いです。素数を求めるのにもっと速い方法があるはずですが…まあ、色々な方法を探してみようか…