language: Common Lisp (clisp) (clisp 2.47)
date: 137 days 14 hours ago
link:
可見度: public 
1
2
3
4
5
6

(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)