我需要我的函数使用 LISP while 循环和 Euclids 算法返回给定输入的 GCD 我得到的输出是 0

问题描述

(defun gcd (n·m) “返回任意两个输入值的 gcd。” (let ((dividend n) (divisor m) (remainder 1)) （条件 ((> 纳米) (gcd m n)) ((

(gcd 12 18) 00

解决方法

我真的不知道你的代码有什么问题。但是，如果我们考虑使用 lisp 语言，我认为您的方法不是最好的。最好写一个递归函数：它更短而且 - 恕我直言 - 更漂亮。

(defun gcd (n m)
  (cond ((< n m) (gcd m n))
        ((= m 0) n)
        (t (gcd m (% n m)))))

重点是尾递归的概念，它实际上是一个公平的循环而不是这个递归函数，所以你不会得到任何堆栈溢出错误。