Transformer une liste simple en liste de paires pointées.

[DenisHen]

Bonjour à tous.

Je cherche à transformer une liste simple en liste de paires pointées, de ça :

("lundi" "mardi" "mercredi"...)

J'aimerais en faire ça :

((1 . "lundi") (2 . "mardi") (3 . "mercredi")...)

Je pense que ça doit se faire avec un mapcar, mais cette fonction reste pour moi un mystère.

Bon week-end à tous.

Denis...

[CADaSchtroumpf]

Salut,

et oui (mapcar est la solution, pourtant les exemples de l'aide sont assez explicite...

(mapcar '(lambda ( x y ) (cons x y)) '(1 2 3 4 5 6 7) '("lundi" "mardi" "marcredi" "jeudi" "vendredi" "samedi" "dimanche"))

[DenisHen]

Salut CADaSchtroumpf, et merci pour ton aide.

L'aide est peut-être "explicite" pour toi, pour moi, c'est autre chose (surtout en anglais).🤔

Mon problème est que je ne connais pas la longueur de cette liste.

J'ai pris les jours de la semaine comme exemple, je trouvais ça plus "parlant" que ma propre liste...

Denis...

[patrick.emin]

Voir le site de Didier Aveline : https://www.da-code.fr/mapcar/

[CADaSchtroumpf]

Si tu veux faire des paires pointée à partir de 2 listes, il faut obligatoirement que celles ci soient de même longueur.

Autrement mapcar va tronquer à la liste la plus courte.

pour preuve:

(mapcar '(lambda ( x y ) (cons x y)) '(1 2 3 4 5 6) '("lundi" "mardi" "marcredi" "jeudi" "vendredi" "samedi" "dimanche"))
-> ((1 . "lundi") (2 . "mardi") (3 . "marcredi") (4 . "jeudi") (5 . "vendredi") (6 . "samedi"))

(mapcar '(lambda ( x y ) (cons x y)) '(1 2 3 4 5 6 7) '("lundi" "mardi" "marcredi" "jeudi" "vendredi" "samedi"))
-> ((1 . "lundi") (2 . "mardi") (3 . "marcredi") (4 . "jeudi") (5 . "vendredi") (6 . "samedi"))

et sans passer par mapcar :

(cons "toto" nil) -> ("toto") liste simple

(cons nil "toto") -> (nil . "toto") paire pointée dont le premier élément et vide

[DenisHen]

Bonjour Patrick et merci pour cette réponse.

Je cherche toujours l'aide sur le site de Maître Didier, découvert grâce à CadXP.

Mais sur cette fonction, j'ai beaucoup de mal.

Je n'arrive pas à incrémenter le premier élément pour en faire ma liste de paires pointées.

J'ai fais plein de testes dans la console, mais je n'arrive à rien...

Denis.

[DenisHen]

Merci CADaSchtroumpf pour ton aide.

Je vais faire des essais avec ta proposition...

[Bruno-VDH]

Bonjour,

Comme ceci

(defun consNum (n l)
  (if  l
    (cons (cons n (car l)) (consNum (1+ n) (cdr l)))))

_$ (consNum 1 '("lundi" "mardi" "mercredi" "jeudi" "vendredi" "samedi" "dimanche"))
((1 . "lundi") (2 . "mardi") (3 . "mercredi") (4 . "jeudi") (5 . "vendredi") (6 . "samedi") (7 . "dimanche"))

Ou en ajoutant un compteur pour la solution avec mapcar

(setq i 0)
(mapcar '(lambda (x) (cons (setq i (1+ i)) x))    '("lundi" "mardi" "mercredi" "jeudi" "vendredi" "samedi" "dimanche") )

Salutations

[O_Eckmann]

Si tu ne t'en sors pas avec mapcar, utilise une simple boucle

(setq Liste (list "Lundi" "Mardi"))
(setq i 0)
(repeat (length Liste)
  (setq newListe (append newListe (list (cons (1+ i) (nth i Liste)))))
  (setq i (1+ i))
)

Olivier

[_gile]

Salut,

A priori, ce que tu veux faire est inutile. Le principal intérêt des listes de paires pointées est l'accès aux éléments de la liste par 'clé' (avec assoc).

Si la clé est incrémentée elle n'offre de ce point de vue aucun avantage par rapport à la fonction nth.

(nth (1- n)
     '("lundi"
       "mardi"
       "mercredi"
       "jeudi"
       "vendredi"
       "samedi"
       "dimanche"
      )
)

est équivalent à :

(cdr (assoc n
	    '((1 . "lundi")
	      (2 . "mardi")
	      (3 . "mercredi")
	      (4 . "jeudi")
	      (5 . "vendredi")
	      (6 . "samedi")
	      (7 . "dimanche")
	     )
     )
)

[DenisHen · Accepted solution]

Bonjour à tous, et merci pour votre aide.

J'ai fini par adopter une autre méthode, je construit ma liste directement en liste de paire pointées.

J'avais besoin de paires pointées pour utiliser le LISP de Maître _Gile, "ListBox".

Encore merci à vous.

Denis...

[Bruno-VDH]

Bonjour 

Dans l'entête de la fonction listbox, il y avait la solution:

;; Exemple d'utilisation
;; (listbox "Présentation" "Choisir une présentation" (mapcar 'cons (layoutlist) (layoutlist)) 1)

Pour ton cas:

(mapcar 'cons lst lst)

 Cordialement