diff options
Diffstat (limited to '0001/main.lisp')
| -rwxr-xr-x[-rw-r--r--] | 0001/main.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/0001/main.lisp b/0001/main.lisp index c7ba165..0ce3d1d 100644..100755 --- a/0001/main.lisp +++ b/0001/main.lisp @@ -1,13 +1,13 @@ (defun genlist (n) (defun impl (x lst) (if (> x n) - (reverse lst) - (impl (+ 1 x) (cons x lst)))) + (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)) + do (if (or (equal 0 (mod x 3)) (equal 0 (mod x 5))) (setf sum (+ sum x)))) (print sum)) |