http://projecteuler.net/index.php?section=problems&id=85 Pythonで解いたときと違う方法を採った。2000000, 1999999, 2000001, ...という数に対して三角数の積になっていないか調べる。

http://projecteuler.net/index.php?section=problems&id=7 Haskellなら、 is_prime n = all (\p -> mod n p /= 0) (takeWhile (\p -> p * p <= n) primes) primes = 2:(filter is_prime [3,5..]) n = 10001 pair = head (filter (\(k,_) -> k == n) (zip [1…