recursion - Lisp 中的递归加法

Question

我是初学者，正在尝试自学 Common Lisp，在自学期间，我编写了一个函数，我认为它应该适用于两个参数的递归相加。但是，该功能总是失败。这是为什么？

(defun sum (n m)
  ;;;Returns the sum of n and m using recursion
  (cond ((eq m 0) n))
  (sum (1+ n) (1- m)))

按照我的理解，应该是不断的给n加1，同时递减m，直到m为0，此时递归加法就完成了

Answer 1

我认为你有 2 个简单的错别字:

1. 一个括号太多了
2. cond 子句中缺少 t。

你的意思可能是:

(defun sum (n m)
  (cond 
   ((eq m 0) n)               ; here you had one parenthesis too many
   (t (sum (1+ n) (1- m)))))  ; here you were missing the `t` symbol