6 lines
164 B
Common Lisp
6 lines
164 B
Common Lisp
|
(let ((result
|
||
|
|
(do ((a 1 b) (b 2 (+ a b)) (sum 0)) ((> b 4000000) sum)
|
||
|
|
(when (evenp b)
|
||
|
|
(set sum (+ sum b))))))
|
||
|
|
(write-line result))
|