proc Tcl : generation : nbre listes variables avec nbre elem variables

[pierre13]

Bonjour,

je voudrais implémenter en script Tcl, une procédure qui génére les listes d'éléments suivantes (exemple avec 4 listes) :

Code :

list1_1 list2_1 list3_1 list4_1
list1_1 list2_1 list3_1 list4_2
list1_1 list2_1 list3_1 list4_3
list1_1 list2_1 list3_2 list4_1
list1_1 list2_1 list3_2 list4_2
list1_1 list2_1 list3_2 list4_3
list1_1 list2_2 list3_1 list4_1
list1_1 list2_2 list3_1 list4_2
list1_1 list2_2 list3_1 list4_3
list1_1 list2_2 list3_2 list4_1
list1_1 list2_2 list3_2 list4_2
list1_1 list2_2 list3_2 list4_3
list1_1 list2_3 list3_1 list4_1
list1_1 list2_3 list3_1 list4_2
list1_1 list2_3 list3_1 list4_3
list1_1 list2_3 list3_2 list4_1
list1_1 list2_3 list3_2 list4_2
list1_1 list2_3 list3_2 list4_3
list1_1 list2_4 list3_1 list4_1
list1_1 list2_4 list3_1 list4_2
list1_1 list2_4 list3_1 list4_3
list1_1 list2_4 list3_2 list4_1
list1_1 list2_4 list3_2 list4_2
list1_1 list2_4 list3_2 list4_3
list1_2 list2_1 list3_1 list4_1
list1_2 list2_1 list3_1 list4_2
list1_2 list2_1 list3_1 list4_3
list1_2 list2_1 list3_2 list4_1
list1_2 list2_1 list3_2 list4_2
list1_2 list2_1 list3_2 list4_3
list1_2 list2_2 list3_1 list4_1
list1_2 list2_2 list3_1 list4_2
...
list1_3 list2_4 list3_1 list4_2
list1_3 list2_4 list3_1 list4_3
list1_3 list2_4 list3_2 list4_1
list1_3 list2_4 list3_2 list4_2
list1_3 list2_4 list3_2 list4_3

Ceci à partir d'un nombre de listes variables. Chaque liste contient un nombre variable d'éléments.


Exemple :

tclcopier

set list_1 "list1_1 list1_2 list1_3"
set list_2 "list2_1 list2_2 list2_3 list2_4"
set list_3 "list3_1 list3_2"
set list_4 "list4_1 list4_2 list4_3"

list1_1 est l'élément 1 de la liste list_1, ainsi de suite.

Je sais que je peux faire la procédure suivante, mais elle ne fonctionne que pour un nombre de listes fixe. Or, je souhaite que ce nombre de listes soit variable.

tclcopier

proc generation_foreach {} {
    global list_1 list_2 list_3 list_4
 
    set number_combi 0
    foreach element_list_1 $list_1 {
	foreach element_list_2 $list_2 {
	    foreach element_list_3 $list_3 {
		foreach element_list_4 $list_4 {
		    puts "$element_list_1 $element_list_2 $element_list_3 $element_list_4"
		}
	    }
	}
    }
 
return 0
}

Je ne parviens pas à écrire la procédure Tcl pour "un nombre de listes variables avec chaque liste qui contient un nombre variable d'éléments."


Est-ce que quelqu'un pourrait m'aider ?

merci.

Pierre