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
ELIMINE
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)))) ) )
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)
Partager