Add test.lisp

2020-09-09 11:21:53 -05:00 · 2020-09-09 11:21:53 -05:00 · 7a5f28099c
commit 7a5f28099c
parent ef197cb02c
1 changed files with 22 additions and 0 deletions
--- a/test.lisp
+++ b/test.lisp
@ -0,0 +1,22 @@
+;; Common Lisp
+
+(defun gcd (a b)
+    (if (> b 0) (gcd b (mod a b)) a)
+)
+
+(princ "test")
+
+(setq N 1000)
+
+(setq A ())
+(loop for i from 0 to (- N 1)
+    do (setq A (append A (list i)))
+)
+
+(setq ans 0)
+(loop for i in A
+    do (loop for j in A
+        do (setq ans (+ ans (gcd i j)))
+    )
+)
+(print ans)