Problem 137
コンテンツ
http://projecteuler.net/index.php?section=problems&id=137
またペル方程式である。結局
をとけばよいことが分かる。で、また、フィボナッチ数が出てくると。
そういう話らしい。
fib = :1:zipWith(+) fib (tail fib) nugget = f fib where f (x:y:zs) = x*y:f zs main = print$nugget!!15
作成者 Toru Mano
最終更新時刻 2023-01-01 (c70d5a1)