Discussion :

[lynzpl]

Bonjour,
J'aurais besoin d'aide sur une fonction, je dois faire une fonction qui construit, à partir d’une liste, la liste des atomes qui commencent par une lettre donnée, exemple :
(garde ’p ’(art nez pied nez prendre silence nu)) => (pied prendre)
Je dois utiliser la fonction string et la fonction char, voilà ce que je fais sauf que ça ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
(defun garde (lettre liste)
  (cond
    ((null liste) nil) 
    ((and (symbolp (car liste)) 
          (char= (char (string (car liste)) 0) lettre)) 
     (cons (car liste) (garde lettre (cdr liste)))) 
    (t (garde lettre (cdr liste)))))

ça me renvoie : CHAR=: argument P is not a character

[Canvas]

Bonsoir,

Comme ceci, cela devrait fonctionner :

Code lisp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(defun garde (lettre liste)
  (cond
    ((null liste) nil)
    ((equal (char (string (car liste)) 0) 
            (char (string lettre) 0))
     (cons (car liste) (garde lettre (cdr liste))))
    (t
     (garde lettre (cdr liste)))))
 
(setq liste '(art nez pied nez prendre silence nu))
(setq lettre 'p)
(print (garde lettre liste))
 
; Résultat :
; (PIED PRENDRE)

nb: cons (car liste) peut être remplacé par rplacd liste

[lynzpl]

Le code fonctionne parfaitement, merci infiniment !