Posted to tcl by miguel at Tue Sep 02 12:14:38 GMT 2008view raw
- mig@oli:~$ /home/CVS/tcl_SF_clean/unix/tclsh /tmp/show.tcl
- 112469 microseconds per iteration
- 25376 microseconds per iteration
- mig@oli:~$ cat /tmp/show.tcl
- proc cheatloop {var from to body} {
- set var [list $var]
- set nbody "for {set $var [list $from]} {\$$var < [list $to]} \
- {incr $var} [list $body]"
- uplevel 1 $nbody
- }
- proc slow {} {
- cheatloop i 0 100000 {set x $i}
- }
- proc fast {} {
- set i {}
- set x {}
- cheatloop i 0 100000 {set x $i}
- }
- puts [time slow]
- puts [time fast]
- mig@oli:~$