Problem 176

http://projecteuler.net/index.php?section=problems&id=176

因数分解

a^2+b^2=c^2から

a^2 = (c-b)(c+b)となる

c-b = p, c+b=qとすると

c=¥frac{p+q}{2},b=¥frac{q-p}{2}だから

(p,q)の組の数を考えればよい。(ただし、p,qは2の倍数)

import Number
p176 = (2*).product.zipWith (^) primes.reverse.map (`div` 2).factors.(+1).(2*)

調子に乗ってポインタフリーにしてみた。

More Reading
Newer// Problem 177
Older// Problem 175