first threeHEADmaster

1 files changed, 10 insertions, 0 deletions

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)