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的长度。我怀疑这就是递归从未停止的原因。