Red de conocimiento informático - Aprendizaje de programación - ¿Qué función utiliza LISP para extraer la cantidad de caracteres específicos en una cadena?

¿Qué función utiliza LISP para extraer la cantidad de caracteres específicos en una cadena?

;Cuenta el número de caracteres específicos en un personaje

;Por ejemplo: (Num-Cha "A" "AABBAACC") ;return 4

(defun Num-Cha(Xch Xstr )

(- (longitud (vl-string->lista Xstr))

(longitud (vl-remove (ascii Xch) (vl-string->lista Xstr))

)

)

)

)