それでは今日は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)] こんな感じかな?フィボナッチ数列も意…