5 lines
115 B
Tcl
5 lines
115 B
Tcl
|
set aList {foo}
|
||
|
|
lappend aList # bar
|
||
|
|
puts $aList ;# ==> prints "foo # bar"
|
||
|
|
puts [llength $aList] ;# ==> 3
|