http://projecteuler.net/index.php?section=problems&id=87 素直に取りうる値のリストを作ってSetに入れて大きさを見る。 import Data.Set (fromList, size) is_prime n = all (\p -> mod n p /= 0) (takeWhile (\p -> p * p <= n) primes) primes = 2:[ n …

プロジェクトオイラー http://projecteuler.net/index.php?section=problems&id=283 1時間寝坊。まだ誰も解けていないようだ。今日もあまり時間取れないのに。