3 的倍数的 Lisp 总和

Question

所以我是 LISP 的新手，我想知道如何找到可被 3 整除的数字之和。这是我到目前为止所做的:

(defun sumel (li)

 (cond 
  ((null li) 0)

 ( (zerop (rem (car li) 3))  (+ (car li) (sumel (cdr li))))

 )

)

对我做错了什么的一点提示会很好。

Answer 1

您遇到了列表为空的情况，当您实际找到 3 的倍数时，但是如果它是另一个您应该跳过的数字会怎样？你已经做了默认术语，所以 Common Lisp 将返回 nil。例如，您的代码是这样工作的:

(defun sumel (li)
 (cond 
  ((null li) 0)
  ((zerop (rem (car li) 3))  
   (+ (car li) (sumel (cdr li))))
  (t nil))) ; when not a multiple of 3 we are finished, return nil

尝试评估 (cond)，您会发现它与 (cond (t nil)) 相同。

您只需添加 (sumel (cdr l)) 作为替代方案即可解决此问题。它的计算结果应该是列表其余部分的倍数之和，这就是您想要的。