Posted to tcl by evilotto at Tue Mar 07 02:23:05 GMT 2017view raw
- set l [lrepeat 1000 x]
- for {set S 0} {$S < 1000} {incr S 100} {
- for {set E 1000} {$E > $S} {incr E -100} {
- puts "$S $E"
- puts "constants -> 1el: [time "lreplace \$l $S $E n" 1000]"
- puts "var -> 1el: [time {lreplace $l $S $E n} 1000]"
- puts "constants -> 3el: [time "lreplace \$l $S $E n m o" 1000]"
- puts "var -> 3el: [time {lreplace $l $S $E n m o} 1000]"
- set mel [lrepeat [expr {$E - $S}] N]
- puts "constants -> mel: [time "lreplace \$l $S $E $mel" 1000]"
- puts "var -> mel: [time {lreplace $l $S $E {*}$mel} 1000]"
- puts "constants -> {}: [time "lreplace \$l $S $E" 1000]"
- puts "var -> {}: [time {lreplace $l $S $E} 1000]"
- }
- }