400万未満のフィボナッチ数列の項において、偶数値になる項の和を求める。[=>原文和訳] ごく普通に数列を作りながら判定して加算。 (require 'cl) (defun problem002-1 () (let ((N 4000000) (a 1) (b 2) (total 2)) (while (< (setq c (+ a b)) N) (if (eve…