http://projecteuler.net/index.php?section=problems&id=18 整数をルートに割り当てる。次に左右どちらに行くかを2進数で表して各桁が0か1かで決める。それを関数化するとiterateでルートが作れる。

結局、修正して答え出した。 しかし、なんでこれ遅いんだろ。

http://projecteuler.net/index.php?section=problems&id=2 Haskellで書くと、 fib = 1:2:[ a + b | (a,b) <- zip fib (tail fib) ] main = print (sum (takeWhile (<=4*10^6) (filter even fib))) フィボナッチ数列の無限リストを作ってtakeWhileでぶった切…