From ee57979cfaf37aaf1d7c72155a3f65cc02caa286 Mon Sep 17 00:00:00 2001 From: Tom Barrett Date: Wed, 30 Jun 2021 17:20:46 +0200 Subject: first three --- p1.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 p1.lisp (limited to 'p1.lisp') diff --git a/p1.lisp b/p1.lisp new file mode 100644 index 0000000..08723e2 --- /dev/null +++ b/p1.lisp @@ -0,0 +1,10 @@ +(setq sum 0) +(loop for i from 0 to 1001 do + (if (eq (mod i 3) 0) + (setq sum (+ sum i)) + (if (eq (mod i 5) 0) + (setq sum (+ sum i)) + ) + ) +) +(print sum) -- cgit v1.2.3