Posted to tcl by evilotto at Thu Oct 10 17:06:26 GMT 2013view pretty
% set l [lrepeat 10000 x] ; llength $l
10000
% time {set l1 $l; unset l1} 1000
0.768 microseconds per iteration
% time {set l1 $l} 1000
0.409 microseconds per iteration
% time {lappend l1 x} 1000
0.561 microseconds per iteration
% time {set l1 $l; lappend l1 x} 1000
37.043 microseconds per iteration
%