Dołącz elementy do zagnieżdżonej listy w TCL
Chcę dynamicznie dodawać elementy do zagnieżdżonych list. Rozważ następujący przykład:
set super_list {}
lappend super_list {00 01 02}
lappend super_list {10 11 12}
lappend super_list {20 21}
prowadzi do:
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}
Jak dołączyć kolejną wartość (np. 22) do [lindex $ super_list 2]?
lappend [lindex $super_list 2] 22
nie działa!
Jedynym obejściem, jakie dotychczas mogłem wymyślić, jest:
lset super_list 2 [concat [lindex $super_list 2] {22}]
Czy to naprawdę jedyny sposób?
Dzięki, Linus