Add test.lisp

Changes

1 changed files (+22/-0)

• test.lisp (new)
  • @@ -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)