2020-09-09 16:21:53 +00:00
|
|
|
;; Common Lisp
|
|
|
|
|
|
2021-12-08 18:32:27 +00:00
|
|
|
(require '#:package-locks)
|
|
|
|
|
(ext:without-package-locks
|
|
|
|
|
(defun gcd (a b)
|
|
|
|
|
(if (> b 0) (gcd b (mod a b)) a)
|
|
|
|
|
)
|
2020-09-09 16:21:53 +00:00
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(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)
|
