LISP只檢索列表項

Question

我的第一個元素：

(defun getTotalValue(pack) 
    (cond ((null pack) 0) 
    (t (+ (car (car pack)))) (getTotalValue (cdr pack)) 
) 
) 

其中，我的理解，加起來在列表中的所有項目的第一要素。測試函數調用將是：

(getTotalValue '((10 c u) (3 s u) (5 h d) (7 s d) (12 h u))) 

然而，當我運行上面的代碼，它只是打印出的第一個項目的第一個元素在列表中，10。爲什麼不加起來所有項目的第一個元素？

Answer 1

您有加圓括號問題 - 在(car (car pack))之後出現兩個錯位的右括號，因此cond表達式在此處終止，發生遞歸但結果被丟棄。

(defun getTotalValue (pack) 
(cond ((null pack) 0) 
     (t (+ (car (car pack)) (getTotalValue (cdr pack))))))