計算列表中的所有原子的出現次數？ - LISP

Question

我需要編寫一個函數來計算列表中給定原子的所有出現次數。這是我有：

(defun my-count (a L) 
    (cond 
    ((null L) nil) 
    ((equal a (car L))(+ 1 (my-count a (cdr L)))) 
    (t (my-count a(cdr L))) 
    ) 
) 

據我瞭解這應該工作。然而，當我運行跟蹤時，我發現當（等於一輛車L）評估爲真時，它會進行遞歸調用，但不會初始化+1。顯然有一些我錯過了。

Answer 1

問題是你的null條件。你是一個遞歸此外，當你做到了，應該加0，不是nil：

(defun my-count (a L) 
    (cond 
    ((null L) 0) 
    ((equal a (car L)) (+ 1 (my-count a (cdr L)))) 
    (t (my-count a (cdr L))))) 

如

? (my-count 'x '(a x b)) 
1 
? (my-count 'x '(a x x b)) 
2 
? (my-count 'x '(a b)) 
0