Agregar elementos a la lista anidada en TCL
Quiero agregar elementos dinámicamente a las listas anidadas. Considere el siguiente ejemplo:
set super_list {}
lappend super_list {00 01 02}
lappend super_list {10 11 12}
lappend super_list {20 21}
resultados en:
super_list = {00 01 02} {10 11 12} {20 21}
[lindex $super_list 0] = {00 01 02}
[lindex $super_list 1] = {10 11 12}
[lindex $super_list 2] = {20 21}
¿Cómo agrego otro valor (por ejemplo, 22) a [lindex $ super_list 2]?
lappend [lindex $super_list 2] 22
¡No funciona!
La única solución que podría pensar hasta ahora es:
lset super_list 2 [concat [lindex $super_list 2] {22}]
¿Es esta realmente la única manera?
Gracias linus