Posted to tcl by rmax at Mon Nov 16 14:08:15 GMT 2015view raw

  1. proc a {list1} {
  2. for {set i 0} {$i < [llength $list1]} {incr i} {
  3. lappend a [lindex $list1 $i]
  4. }
  5. }
  6.  
  7. proc b {list1} {
  8. time {
  9. for {set i 0} {$i < [llength $list1]} {incr i} {
  10. lappend a [lindex $list1 $i]
  11. }
  12. } 10
  13. }
  14.  
  15. for {set i 0} {$i < 100000} {incr i} {
  16. lappend list1 $i
  17. }
  18.  
  19. puts [time {a $list1} 10]
  20. puts [b $list1]
  21. puts [time {
  22. for {set i 0} {$i < [llength $list1]} {incr i} {
  23. lappend a [lindex $list1 $i]
  24. }
  25. } 10]
  26.