Función para contar valores de una lista en lisp según un criterio (que va a ser una función) :
(defun contarSegun (lista fx)
(cond
((null lista) 0)
((funcall fx (first lista))
(+ (contarSegun (rest lista) fx) 1))
(T (contarSegun (rest lista) fx))
)
)
Y vamos a probarla :
> (contarSegun '(1 2 3 4 5 6) (lambda (a) (> a 3)))
3
> (contarSegun '(1 2 3 4 5 6) (lambda (a) (>= a 3)))
4
> (contarSegun '(1 2 3 4 5 6) (lambda (a) (= a 3)))
1