7 lines
174 B
Common Lisp
7 lines
174 B
Common Lisp
|
(defun e2 ()
|
||
|
|
(let ((sum 0))
|
||
|
|
(do ((last 0 current)
|
||
|
|
(current 1 (+ current last)))
|
||
|
|
( (>= current 4000000) sum)
|
||
|
|
(if (= (rem current 2) 0)
|
||
|
|
(incf sum current)))))
|