Elément présent dans une liste

[zeck2226]

Bonjour,

 

Est ce qu'il existe une fonction qui vérifie si un élément est présent dans une liste ?

 

Ex:

(setq toto ( list coordonnées1 ... coordonnéesn))

fonction_en_question (toto coordonnées_test) avec true ou false ou autre en résultat

 

Merci par avance pour vos réponses

[Bred]

Salut,

 

la foction que tu cherche est "foreach" :

 

 (setq toto ( list "coordonnées1" "coordonnées2" "coordonnées2"))
(if (foreach n toto (equal "coordonnées2" n))(princ "coordonnées2 est dans la liste")
 (princ "coordonnées2 n'est pas dans la liste"))
(princ)

[zeck2226]

Merci Bred, je vois ce que je peux faire avec cette fonction

Bonne journée

[(gile)]

Salut,

 

Tu peux aussi utiliser la fonction (member ...) qui retorurne la liste deouis la première occurence de l'élément recherché ou nil s'il n'y est pas présent :

 

(member "c" '("a" "b" "c" "d")) retourne ("c" "d")

 

(member "z" '("a" "b" "c" "d")) retourne nil

 

donc

 

(if (member "c" '("a" "b" "c" "d")) ... retournera T

 

Si tu veux comparer des coordonnées, il vaut mieux utiliser (vl-member-if ...) avec la fonction (equal ...) et un fuzz.

 

(if (vl-member-if '(lambda (pt) (equal coordonnées_test pt 1e-9)) toto)
(princ "\ncoordonnées_test est dans toto)
(princ "\ncoordonnées_test n'est pas dans toto)
)