Posted to tcl by dbohdan at Fri Jan 01 19:06:07 GMT 2016view pretty
$ cat append.tcl
puts [time {set a {}; for {set i 0} {$i < 10000000} {incr i} { append a @ }} 10]
$ tclsh append.tcl
7152838.1 microseconds per iteration
$ jimsh append.tcl
2172198 microseconds per iteration
Comments
Posted by miguel at Fri Jan 01 23:46:36 GMT 2016 [text] [code]
Compilation cost? Try the same with 1000 iterations instead of 10 (maybe reducing the iter number in the timed loop)