Problem 63 http://projecteuler.net/index.php?section=problems&id=63 9までで考えればよい。 num_digits n = length (takeWhile (>0) a) where a = n:[ div n 10 | n <- a ] count d = length (takeWhile (\(e,n) -> n == e) [ (e, num_digits (d^e)) | e …

Problem 97 最初に知られた100万桁を超える素数は1999年に発見された。そしてそれは26972593-1というメルセンヌ素数である。2098960桁である。その後、さらに多くの桁数の2p-1という形のメルセンヌ素数が見つかった。 しかしながら、2004年に2357207桁の巨大…