blob: d4fc5989468068725a3f22aaf0364d9c1d87bdf2 (
plain) (
tree)
|
|
#!./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
|
