반복문별 소요 시간 테스트

안녕하세요.
Tcl/tk언어로 속도에 관한 테스트를 하는게 의미 있는 일은 아니지만..
다른 프로그래밍 언어 커뮤니티에서는 이런 테스트 결과를 가지고 이야기 하는것이 부럽기도 해서 저도 한번 해봤습니다.^^;
PC환경은 2011 Macbook air이고, tcl8.6이며, 각 반복문별 5회씩 테스트 했으며, 숫자1~1억까지 입니다
결과는 foreach(평균43.4초), while(80초), for(106.2초)입니다.
예상(?)했던대로 foreach가 가장 빨랐고, for문이 생각보다 시간이 많이 걸린다는게 좀 의아 했습니다.

ps.) 포럼을 어디다가 두어야 할지 잘 몰라 일단 Tcl/tk팁에 둡니다.

# foreach test
set max_num 100000000
set start_time [clock seconds]
set i 1
while { $i <= $max_num } {
    lappend i_list $i
    incr i
}
set end_time [clock seconds]
set total_time [ expr $end_time - $start_time ]
puts $total_time
puts "foreach start"
set start_time [clock seconds]
foreach x $i_list {
}
set end_time [clock seconds]
set total_time [ expr $end_time - $start_time ]
puts $total_time
unset i_list

# for test
set max_num 100000000
set start_time [clock seconds]
set i 1
for { set i 1 } { $i <= $max_num } { incr i } {
}
set end_time [clock seconds]
set total_time [ expr $end_time - $start_time ]
puts $total_time

# while test
set max_num 100000000
set start_time [clock seconds]
set i 1
while { $i <= $max_num } {
    incr i
}
set end_time [clock seconds]
set total_time [ expr $end_time - $start_time ]
puts $total_time