diff options
author | dgp <dgp@users.sourceforge.net> | 2016-04-19 20:35:49 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-04-19 20:35:49 (GMT) |
commit | 66032e8a327e0498b0d8970307452f66c69be25c (patch) | |
tree | 345b92b9d0c1be0f8ff45032a38884929744545e /tests/langbench/proc.py | |
parent | 0a228666ae8b3189ae92ff7624263de1455c24ff (diff) | |
download | tcl-66032e8a327e0498b0d8970307452f66c69be25c.zip tcl-66032e8a327e0498b0d8970307452f66c69be25c.tar.gz tcl-66032e8a327e0498b0d8970307452f66c69be25c.tar.bz2 |
Fork of Tcl used in the "Little" project.
http://www.mcvoy.com/lm/little/index.html
Diffstat (limited to 'tests/langbench/proc.py')
-rw-r--r-- | tests/langbench/proc.py | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/langbench/proc.py b/tests/langbench/proc.py new file mode 100644 index 0000000..726b9a5 --- /dev/null +++ b/tests/langbench/proc.py @@ -0,0 +1,28 @@ +#!/usr/bin/python + +def a(val): + return b(val) +def b(val): + return c(val) +def c(val): + return d(val) +def d(val): + return e(val) +def e(val): + return f(val) +def f(val): + return g(val, 2) +def g(v1, v2): + return h(v1, v2, 3) +def h(v1, v2, v3): + return i(v1, v2, v3, 4) +def i(v1, v2, v3, v4): + return j(v1, v2, v3, v4, 5) +def j(v1, v2, v3, v4, v5): + return v1 + v2 + v3 + v4 + v5 + +n = 100000 +while n > 0: + x = a(n) + n = n - 1 +print "x=%d" % x |