tcl combinations of lists

[batarsehf]

Hello,
I am new to tcl programming and I am trying to write a tcl code to do list of every possible combinations of lists to build a table:

list 1 {a,b,c} 2 {d,e,f} 3 {g,h}

output:
a,d,g
a,d,h
a,e,g
a,e,h
a,f,g
a,f,h
b,d,g
b,d,h
...

Thanks for your help

 

[thacoda]

set L0 {a b c}; set L1 {d e f}; set L2 {g h}; 

foreach n0 $L0 {foreach n1 $L1 {foreach n2 $L2 {puts "$n0 $n1 $n2 "}}}

this is just one way of doing it, a more dynamic method is possible but that requires more complexity.