opération sur deux listes

Version imprimable

23/04/2013, 13h39
simnitch

opération sur deux listes

Bonjour,

je bloque complètement sur ce petit pb qui paraît pourtant simple... :

j'ai deux listes et j'aimerais afficher toutes les combinaisons de leurs éléments, comme l'exemple ci-dessous (pour deux listes de trois éléments):
0 0
0 1
0 2
1 0
1 1
1 2
2 0
2 1
2 2

Merci d'avance à ceux qui prendront le temps de me répondre,

cordialement.

Salut

De manière itérative

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun combi (lst1 lst2 / old res)
  (while lst1
    (setq old lst2)
    (while lst2
      (setq res (cons (list (car lst1) (car lst2)) res)
	    lst2 (cdr lst2)
      )
    )
    (setq lst2 old
	  lst1 (cdr lst1)
    )
  )
  (reverse res)
)

Code:

(combi '(0 1 2) '(0 1 2))

Dans le même esprit mais en utilisant mapc, c'est du emacs lisp, mais c'est facilement transposable dans les autres jargons.

Code:

1
2
3
4
5
6
7
(defun combi (lst1 lst2)
  ""
  (mapc (lambda (x)
          (mapc (lambda (y)
                  (message  "%s %s" x y))
                lst2))
          lst1))

Code:

(combi '("asc" 'a 123) '(4 5 6 7) )

resultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
asc 4
asc 5
asc 6
asc 7
(quote a) 4
(quote a) 5
(quote a) 6
(quote a) 7
123 4
123 5
123 6
123 7

23/04/2013, 15h17
simnitch

Merci bien pour vos réponses! :ccool:

Il existe donc aussi une méthode par récursivité?
23/04/2013, 15h31
jack-ft

Citation:

Envoyé par simnitch

Il existe donc aussi une méthode par récursivité?

Est-ce pour un exercice?
As-tu essayé quelque chose?

Oui, j'ai essayé ceci mais je commence à bien m'embrouiller :
Code:

1 2 3 4 5 6 7 8 9 10 (defun comparaisons (liste1 liste2 &aux (liste3 liste2)) (cond ((not (atom liste1)) (cond ((not (atom liste2)) (setq res (list (car liste1) (car liste2))) (print res) (comparaisons liste1 (cdr liste2) liste3) ) (t (comparaisons (cdr liste1) liste3 liste3)) ) ) ) )
J'ai un message d'erreur que je ne comprends pas puisqu'il y'a toujours trois arguments : "*** - EVAL/APPLY: Trop d'arguments pour COMPARAISONS."

Merci d'avance.

pour le faire de façon recursive il faut garder une copie de la seconde liste.

Cette copie te permettra de repartir du début de la seconde liste avec le cdr de la première liste une fois qu'elle aura été parcourue avec le car de la première.
Super claire, non:calim2:?

Personnellement j'y suis arrivé comme ceci:
Code:

1 2 3 4 5 6 7 (defun combi (l1 l2 &optional l2-store) "" (unless l2-store ;; Pour le premier appel on stocke l2 dans l2-store. (setq l2-store l2)) ;; Je te laisse compléter les blanc vu que c'est visiblement un exercice de cours... )
Le resultat que j'ai obtenu:
Code:

1 2 3 4 5 6 7 8 9 10 (combi '(1 2 3) '(4 5 6)) 1 4 1 5 1 6 2 4 2 5 2 6 3 4 3 5 3 6

24/04/2013, 10h12
simnitch

hmm, en fait c'est exactement ce que j'ai fait dans ma fonction sauf qu'au lieu de mettre &optional je me suis trompé et j'ai mis &aux, mais en changeant ça, ça marche.
Je comprends pas pq d'ailleurs, il n'y a normalement pas de différences entre les deux si?