Posted to tcl by rmax at Mon Nov 16 14:08:15 GMT 2015view pretty
proc a {list1} { for {set i 0} {$i < [llength $list1]} {incr i} { lappend a [lindex $list1 $i] } } proc b {list1} { time { for {set i 0} {$i < [llength $list1]} {incr i} { lappend a [lindex $list1 $i] } } 10 } for {set i 0} {$i < 100000} {incr i} { lappend list1 $i } puts [time {a $list1} 10] puts [b $list1] puts [time { for {set i 0} {$i < [llength $list1]} {incr i} { lappend a [lindex $list1 $i] } } 10]