diff options
| author | Charles <sircharlesaze@gmail.com> | 2020-04-07 17:20:43 +0200 |
|---|---|---|
| committer | Charles <sircharlesaze@gmail.com> | 2020-04-07 17:20:43 +0200 |
| commit | 9af65c8ac721024d0e45a2a6bde5c3f9fe638516 (patch) | |
| tree | e9af93ce9e4d0263b2e76d2fd29ada90d313f334 /lisp/001-multiples_of_3_and_5.lisp | |
| parent | 31b43cf6d0d58812d30c0e2356f6458d06b1e52e (diff) | |
| download | project_euler-9af65c8ac721024d0e45a2a6bde5c3f9fe638516.tar.gz project_euler-9af65c8ac721024d0e45a2a6bde5c3f9fe638516.tar.bz2 project_euler-9af65c8ac721024d0e45a2a6bde5c3f9fe638516.zip | |
problem 1 2 4 in common lisp
Diffstat (limited to 'lisp/001-multiples_of_3_and_5.lisp')
| -rw-r--r-- | lisp/001-multiples_of_3_and_5.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lisp/001-multiples_of_3_and_5.lisp b/lisp/001-multiples_of_3_and_5.lisp new file mode 100644 index 0000000..05b9173 --- /dev/null +++ b/lisp/001-multiples_of_3_and_5.lisp @@ -0,0 +1,16 @@ +;;;; ;;;;;;;; +;;;; Multiples of 3 and 5 +;;;; Problem 1 +;;;; +;;;; If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23. +;;;; Find the sum of all the multiples of 3 or 5 below 1000. +;;;; ;;;;;;;; + +(defvar *sum* 0) + +(dotimes (x 1000) + (when (or (eql 0 (mod x 5)) (eql 0 (mod x 3))) + (incf *sum* x))) + +(print *sum*) + |