counta.lisp

; b) 1つのリストを引数とし、aというシンボルがいくつあるかを返す。
(defun a-ikutu (lst)
    (if (null lst)
        0
        (+ (if (eql (car lst) 'a)
            1
            0)
            (a-ikutu (cdr lst)))))