1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
#!./tclsh proc func_c {} { puts "Function C" set i 0 while {$i < 300000} { set i [expr $i + 1] } } proc func_b {} { puts "Function B" set i 0 while {$i < 200000} { set i [expr $i + 1] } func_c } proc func_a {} { puts "Function A" set i 0 while {$i < 100000} { set i [expr $i + 1] } func_b } func_a