Problem 12 http://projecteuler.net/index.php?section=problems&id=12 素直にn(n + 1) / 2を素因数分解する。 m = 500 primes = 2:[3,5..]div_pow n p | mod n p /= 0 = (n, 0) | otherwise = (\(n, e) -> (n, e + 1)) (div_pow (div n p) p)factorize n (…

土日から方針を転換してみたら、15次は正しい値が出た。しかし18次はメモリ的にも時間的にも無理そう。17次ならいけそうだけど。メモリを使わないようにするにはユニークな解を生成すればいいのだけれど、どうしてもそれができない。