Problem 137
http://projecteuler.net/index.php?section=problems&id=137
またペル方程式である。結局
をとけばよいことが分かる。で、また、フィボナッチ数が出てくると。
そういう話らしい。
fib = 0:1:zipWith(+) fib (tail fib) nugget = f fib where f (x:y:zs) = x*y:f zs main = print$nugget!!15
http://projecteuler.net/index.php?section=problems&id=137
またペル方程式である。結局
をとけばよいことが分かる。で、また、フィボナッチ数が出てくると。
そういう話らしい。
fib = 0:1:zipWith(+) fib (tail fib) nugget = f fib where f (x:y:zs) = x*y:f zs main = print$nugget!!15