9 lines
76 B
Tcl
9 lines
76 B
Tcl
|
set ary {}
|
||
|
|
|
||
|
|
lappend ary 1
|
||
|
|
lappend ary 3
|
||
|
|
|
||
|
|
lset ary 0 2
|
||
|
|
|
||
|
|
puts [lindex $ary 0]
|