Re: My own control structures are slow

Christian Gollwitzer <auriocus@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx> writes:
> MAP3 { set sum [expr {$sum+$x+$y}]}

OK, see if this runs faster:

proc MAP4 command {
set MAP_up [list upvar]
foreach locvar [uplevel 1 {info locals}] {
lappend MAP_up $locvar $locvar
}
proc mapbody {} "$MAP_up
for {set y 0} {\$y<512} {incr y} {
for {set x 0} {\$x<512} {incr x} {$command}
}"
uplevel 1 mapbody
}


--
Donald Arseneau asnd@xxxxxxxxx
.