lisp中奇数元素的总和

Question

我必须对奇数位置上的奇数元素求和。这是行不通的。有人可以告诉我我的错误在哪里吗？谢谢

(defun sum (list)
  (cond
    ((null list) 0)
    ((= (mod 2 (car list)) 0) (sum (cddr list)))
    (T (+ (car list) (sum (cddr list))))))

Answer 1

检查函数参数的顺序 mod。应该是：

(= (mod (car list) 2) 0)

为避免此错误，您可以改用函数 evenp。

Answer 2

您的原始定义（对奇数位置的奇数元素求和）实际上非常干净地转换为循环：

(loop for i from 0 
  for x in '(0 1 2 3 4 5 6)
  when (and (oddp i) (oddp x))
  sum x)

您的原始解决方案在列表中下移了 cddr，这实际上是一个很好的方法。您也可以使用 loop 来完成（最初调用 rest 只是为了让事情从索引 1 开始）：

(loop for x in (rest '(0 1 2 3 4 5 6)) by #'cddr
   when (oddp x)
   sum x)

Sum of odd elements in lisp