timing lreplace

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]"
    }
}