Posted to tcl by rmax at Mon Nov 16 13:56:42 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. foreach item $list1 {
  9. lappend a $item
  10. }
  11. }
  12.  
  13. for {set i 0} {$i < 100000} {incr i} {
  14. lappend list1 $i
  15. }
  16.  
  17. puts [time {a $list1} 10]
  18. puts [time {b $list1} 10]
  19.