0001/main.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13

(defun genlist (n)
  (defun impl (x lst)
    (if (> x n)
	(reverse lst)
	(impl (+ 1 x) (cons x lst))))
  (impl 1 '()))

(let ((sum 0))
  (loop for x in (genlist 999)
        do (if (or (equal 0 (mod x 3))
		   (equal 0 (mod x 5)))
	       (setf sum (+ sum x))))
  (print sum))