Posted to tcl by evilotto at Tue Mar 07 00:41:43 GMT 2017view pretty
% set l [lrepeat 100000 x]; time {set l [lreplace $l[set l {}] 1 1 n]} 1000 1195.011 microseconds per iteration % set E 1 1 % set l [lrepeat 100000 x]; time {set l [lreplace $l[set l {}] $E $E n]} 1000 1.968 microseconds per iteration