Problem 55 http://projecteuler.net/index.php?section=problems&id=55 特になにもない。 digits 0 = [] digits n = (digits (div n 10)) ++ [mod n 10] numerize a = foldl1 (\x y -> x * 10 + y) a rev = numerize . reverse . digits is_palindromic n =…

Problem 91 点P(x1, y1)とQ(x1, y2)が格子点上にあり、これらに原点O(0, 0)を加えて△OPQを形成する。 どの座標も0と2の間にある場合、14個の直角三角形がある（中略）。 0 ≤ x_1, y_1, x_2, y_2 ≤ 50のとき、直角三角形はいくつあるか。 http://projecteuler…