Posted to tcl by evilotto at Tue Mar 07 02:23:05 GMT 2017view raw

  1. set l [lrepeat 1000 x]
  2.  
  3. for {set S 0} {$S < 1000} {incr S 100} {
  4. for {set E 1000} {$E > $S} {incr E -100} {
  5. puts "$S $E"
  6. puts "constants -> 1el: [time "lreplace \$l $S $E n" 1000]"
  7. puts "var -> 1el: [time {lreplace $l $S $E n} 1000]"
  8. puts "constants -> 3el: [time "lreplace \$l $S $E n m o" 1000]"
  9. puts "var -> 3el: [time {lreplace $l $S $E n m o} 1000]"
  10. set mel [lrepeat [expr {$E - $S}] N]
  11. puts "constants -> mel: [time "lreplace \$l $S $E $mel" 1000]"
  12. puts "var -> mel: [time {lreplace $l $S $E {*}$mel} 1000]"
  13. puts "constants -> {}: [time "lreplace \$l $S $E" 1000]"
  14. puts "var -> {}: [time {lreplace $l $S $E} 1000]"
  15. }
  16. }