From 7a5f28099c4810e986b493e3ba9c6cf5e3f3fbf7 Mon Sep 17 00:00:00 2001
From: Anthony Wang
Date: Wed, 9 Sep 2020 11:21:53 -0500
Subject: Add test.lisp

---
 test.lisp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 test.lisp

diff --git a/test.lisp b/test.lisp
new file mode 100644
index 0000000..f362c4d
--- /dev/null
+++ 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)
-- 
cgit v1.2.3-70-g09d2