blob: 034190aa93a526d87e503a3588b996fe7e5c9241 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
proc a {val} { return [b $val] }
proc b {val} { return [c $val] }
proc c {val} { return [d $val] }
proc d {val} { return [e $val] }
proc e {val} { return [f $val] }
proc f {val} { return [g $val 2] }
proc g {v1 v2} { return [h $v1 $v2 3] }
proc h {v1 v2 v3} { return [i $v1 $v2 $v3 4] }
proc i {v1 v2 v3 v4} { return [j $v1 $v2 $v3 $v4 5] }
proc j {v1 v2 v3 v4 v5} { return [expr $v1 + $v2 + $v3 + $v4 + $v5] }
proc main {} {
set n 100000
while {$n > 0} { set x [a $n]; incr n -1 }
puts $x
}
main
|
