Problem 2

それでは今日はProblem 2を…

400万までのフィボナッチ数列の偶数を足していく問題です。

main = print . sum . takeWhile (<=4000000) $ [x | x <- fb, even x] ]
  where fb = 1:2:[x + y | (x, y) <- zip fb (tail fb)]

こんな感じかな?

フィボナッチ数列も意外に簡単に出来た。

これからもできるだけ毎日更新したいなー