2010-03-10から1日間の記事一覧

Project Euler 77

http://projecteuler.net/index.php?section=problems&id=77 Haskellなら簡単に書ける。 n = 5000 is_prime n = all (\p -> mod n p /= 0) (takeWhile (\p -> p * p <= n) primes) primes = 2:(filter is_prime [3,5..]) mul f p = [ g f k 0 | k <- [0..] ]…

Project Euler 2(2)

takewhileもfilterと同じように定義する。