nth inversé .... sur member

[stephan_35]

ReBonjour ...

 

 

 

J'ai une liste ("a" "b" "c" "d")

 

et je veux savoir à quelle position est le "C" ?????

 

Merci ! ;)

[bseb67]

Salut Stephan_35!

et bienvenu :)

 

(defun get_pos( liste search)
(if (= (car liste) search)
  	0
  	(1+ (get_pos (cdr liste) search))
) ; if
) ; get_pos

 

Il suffit de lancer ainsi:

(get_pos '("a" "b" "c" "d") "c")

 

 

a+

[lesieur]

Bonjour,

 

qqe chose comme ca

 

(setq liste (list "1" "2" "3" "4" "5"))

("1" "2" "3" "4" "5")

(setq long (length liste))

5

(setq sous_liste (member "4" liste))

("4" "5")

(setq sous_long (length sous_liste))

2

(setq position (1+ (- long sous_long)))

4

 

Il y a peut-etre plus simple...

[Bred]

Salut,

la fonction que tu cherches est vl-position

 

(vl-position "c" '("a" "b" "c" "d"))

retourne "2" (0 = 1er membre)

 

[Edité le 26/11/2007 par Bred]

[bseb67]

Re,

 

En fait mon petit lisp plante si l'élément n'existe pas dans la liste.

 

Mais Bred à donner la meilleur réponse :). Je ne cherche pas toujours des fonctions vl :cool: .

 

a+

[stephan_35]

Merci tout plein !!!

 

:D

[bseb67]

Re,

 

En fait mon petit lisp plante si l'élément n'existe pas dans la liste.

 

Mais Bred à donner la meilleur réponse :). Je ne cherche pas toujours des fonctions vl :cool: .

 

a+

[(gile)]

Juste pour l'exercice, un exemple de fonction équivalente à vl-position (extraite de ce sujet)

 

(defun position	(ele lst / ret)
 (if (not (zerop
     (setq ret (length (member ele lst)))
   )
     )
   (- (length lst) ret)
 )
)