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