lisp - 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

您的原始定义(对奇数位置的奇数元素求和)实际上非常清晰地转换为循环:

(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)