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

またペル方程式である。結局

x^2-5y^2=-4

をとけばよいことが分かる。で、また、フィボナッチ数が出てくると。

そういう話らしい。

fib = :1:zipWith(+) fib (tail fib)
nugget = f fib
where f (x:y:zs) = x*y:f zs
main = print$nugget!!15