recursion - Lisp 编程错误(堆栈溢出(深))

Question

我要编写一个 lisp 程序来生成十六进制数的实际值。我已经编写了一个函数，但似乎出现了 stackoverflow(深度)错误。我想知道是否有人可以指出我的错误或指导我朝着正确的方向前进。

如果没有为这个问题发布代码，我将不胜感激，因为这是家庭作业的一部分。因此，我只希望在我可能出错的地方得到解释或指导。

我觉得我的问题是我的递归没有终止，但我不知道如何解决它。

这是我的代码:

(defun calc (hex)
  (if hex
    (if (> (length hex) 1)
     ( + (first (reverse hex)) (* 16 (calc (reverse hex)))) hex))) 

提前致谢。

Answer 1

“基本情况”(递归实际停止的情况/状态)是 hex 的长度为 1 或更小。告诉我，每次你再次调用 calc 时，calc 的输入是否变小了？如果不是，那么输入在数学上不可能达到基本情况。

假设 hex 以长度 9 开头。当您再次调用 calc 时，您已经反转了 hex。所以现在 hex 被反转了，但它的长度仍然是 9。我怀疑这就是递归永不停止的原因。