¿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))
)
)
)
)