2010-02-16から1日間の記事一覧

Project Euler 47

http://projecteuler.net/index.php?section=problems&id=47 順に素因数分解すれば答えは出る。 is_prime n = all (\p -> mod n p /= 0) (takeWhile (\p -> p * p <= n) primes) primes = 2:(filter is_prime [3,5..]) div_pow n p | mod n p /= 0 = (n, 0) …

Project Euler 80

Problem 80 自然数の平方根が整数でなければ、無理数であることが知られている。このような平方根の小数の展開は無限で繰り返しはない。 2の平方根は1.41421356237309504880...で、最初の100桁の各桁の和は475である。 最初の100個の自然数に対して、無理数…