リスト内の特定のアトムのすべての出現をカウントする関数を作成する必要があります。これは私が持っているものです:
(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)))
)
)
私の理解では、これはうまくいくはずです。しかし、トレースを実行すると、(equals a car L) が true と評価されると、再帰呼び出しが行われますが、+ 1 が初期化されないことがわかります。明らかに何かが欠けています。