Posted to tcl by evilotto at Tue Mar 07 00:41:43 GMT 2017view raw
- % 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