Posted to tcl by evilotto at Thu Oct 10 17:06:26 GMT 2013view raw
- % 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
- %