language: Common Lisp (clisp) (clisp 2.47)
date: 133 days 1 hour ago
link:
visibility: public
1
2
3
4
5
6
7
(setq x 10) 
(setq y 15)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))