7 lines
216 B
Common Lisp
7 lines
216 B
Common Lisp
|
;; (defun range (start end)
|
||
|
|
;; (if (< start end)
|
||
|
|
;; (cons start (range (+ 1 start) end))
|
||
|
|
;; (list)))
|
||
|
|
|
||
|
|
(write-line (reduce + (filter (lambda (x) (or (zerop (mod x 3)) (zerop (mod x 5)))) (range 1 1000))))
|