Bonjour tout le monde,

Je dois faire une fonction qui elimine les mots qui commencent avec une lettre donné.

J'ai pu réussir a faire un code qui elimine les mots mais j'arrive pas à generaliser pour arriver à donner le char caractere qui commence les mots à éliminer.

Voila le code ; plz help

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
(defun elimine (e liste)
  (cond
    ((not liste) nil)
    ((equal (char (string (car liste))0) #\E) (elimine e (cdr liste)))
    (t (cons (car liste)(elimine e (cdr liste)))) ) )
ELIMINE

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
[121]> (elimine 'r '(nez alle elle en regarder nana elmt))             ;;;;ici ce sont les mots commençant par e
(NEZ ALLE REGARDER NANA)