diff options
Diffstat (limited to 'PerformanceTests/SunSpider/tests/sunspider-0.9/controlflow-recursive.js')
-rw-r--r-- | PerformanceTests/SunSpider/tests/sunspider-0.9/controlflow-recursive.js | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/PerformanceTests/SunSpider/tests/sunspider-0.9/controlflow-recursive.js b/PerformanceTests/SunSpider/tests/sunspider-0.9/controlflow-recursive.js new file mode 100644 index 0000000..fcfe1c4 --- /dev/null +++ b/PerformanceTests/SunSpider/tests/sunspider-0.9/controlflow-recursive.js @@ -0,0 +1,25 @@ +// The Computer Language Shootout +// http://shootout.alioth.debian.org/ +// contributed by Isaac Gouy + +function ack(m,n){ + if (m==0) { return n+1; } + if (n==0) { return ack(m-1,1); } + return ack(m-1, ack(m,n-1) ); +} + +function fib(n) { + if (n < 2){ return 1; } + return fib(n-2) + fib(n-1); +} + +function tak(x,y,z) { + if (y >= x) return z; + return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y)); +} + +for ( var i = 3; i <= 5; i++ ) { + ack(3,i); + fib(17.0+i); + tak(3*i+3,2*i+2,i+1); +} |