Comment simplifier mon code

Bonjour à tous,

Je dois faire une fonction qui modifie une liste pour ne garder que les éléments qui commencent par une lettre donnée.
Par exemple :
(setq atomes '(pierre feuille ciseaux perdu jeu))
et ne retenir que ceux commençant par P ...

Voici ce que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8

(defun commence-par (lettre liste) (cond ((atom liste) nil) ((and (car liste) (equal (char (string (car liste)) 0) (char (string lettre) 0))) (rplacd liste (commence-par lettre (cdr liste))) ) ((not (equal (char (string (car liste)) 0) (char (string lettre) 0))) (commence-par lettre (cdr liste))) ) )

---

Merci pour votre aide et vos explications.

Salut,

Plutôt que rplacd, qui va modifier la liste passé en argument (effet de bord), utilise la valeur renvoyée par la fonction.
La dernière condition de cond est inutile: dès qu'une condition est remplie, cond évalue le code correspondant mais pas la suite. Un simple t suffit.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

* (defun rm (e lst) (cond ((atom lst) nil) ((equal e (car lst)) (rm e (cdr lst))) (t (cons (car lst) (rm e (cdr lst))) )) ) RM   * (rm 'pierre '(pierre paul jacques)) (PAUL JACQUES)

---

Que tu adaptes à ta sauce.

Merci beaucoup !