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的長度。我懷疑這就是遞歸從未停止的原因。