Resposta ao exercício 46

(defun n-atomos (lista)
  (cond ((null lista) 0)
        ((atom lista) 1)
        (t (+ (n-atomos (first lista))
              (n-atomos (rest lista))))))