Подсчет всех вхождений атома в список? - 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) оценивается значение true, он делает рекурсивный вызов, но не инициализирует + 1. Очевидно, что-то мне не хватает.

Answer 1

Проблема - ваше нулевое состояние. Вы находитесь в рекурсивном Кроме того, и когда вы закончите, вы должны добавить 0, а не ноль:

(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