Posted to tcl by dgp at Thu Jul 25 05:14:23 GMT 2013view raw
- % set script {
- set f 1e-200
- for {set ct $argv} {$ct > 0} {incr ct -1} {
- set f [expr {$f * 1.0000017}]
- }
- }
- set f 1e-200
- for {set ct $argv} {$ct > 0} {incr ct -1} {
- set f [expr {$f * 1.0000017}]
- }
- % set argv 1000
- 1000
- % time $script 100
- 589.52672 microseconds per iteration
- % time $script 1000
- 526.182627 microseconds per iteration
- % proc demo argv $script
- % time {demo $argv} 1000
- 135.619865 microseconds per iteration