我需要我的函数 return 使用 LISP while 循环和欧几里得算法给定输入的 GCD 我得到的输出是 0
I need my function to return the GCD of the given inputs using LISP while loop and Euclids Algorithm my output I am getting is 0
(defun gcd (n m)
“Returns 任意两个输入值的 gcd。”
(设 ((被除数 n) (除数 m) (余数 1))
（条件
((> 米)
(gcd m n))
((< 米)
(while (/= 余数 0)
(setq 余数 (% 股息除数))
(setq 股息除数)
(setq 除数余数))
(除数)))))
(gcd 12 18)
00
我真的不知道你的代码有什么问题。但是，如果我们考虑使用 lisp 语言，我认为您的方法不是最好的。最好编写一个递归函数：它更短而且 - 恕我直言 - 更漂亮。
(defun gcd (n m)
(cond ((< n m) (gcd m n))
((= m 0) n)
(t (gcd m (% n m)))))
重点是尾递归的概念，它实际上是一个公平的循环而不是这个递归函数，所以你不会得到任何堆栈溢出错误。
(defun gcd (n m) “Returns 任意两个输入值的 gcd。” (设 ((被除数 n) (除数 m) (余数 1)) （条件 ((> 米) (gcd m n)) ((< 米) (while (/= 余数 0) (setq 余数 (% 股息除数)) (setq 股息除数) (setq 除数余数)) (除数)))))
(gcd 12 18) 00
我真的不知道你的代码有什么问题。但是，如果我们考虑使用 lisp 语言，我认为您的方法不是最好的。最好编写一个递归函数：它更短而且 - 恕我直言 - 更漂亮。
(defun gcd (n m)
(cond ((< n m) (gcd m n))
((= m 0) n)
(t (gcd m (% n m)))))
重点是尾递归的概念，它实际上是一个公平的循环而不是这个递归函数，所以你不会得到任何堆栈溢出错误。