場合わけが面倒だ。

Lychrel数の定義が良く分からんかった。

import文のほうが本文より行数が多いなんて。

sqrt2 = (1,1):[(2*n+d,n+d)|(d,n)<-sqrt2]
p057 = length.filter (f.snd).zip [..1000] $sqrt2
where f (x,y) = (length.show)x > (length.show) y

そのまんまですなぁ

The first two consecutive numbers to have two distinct prime factors are: