michael@0: // The Computer Language Shootout
michael@0: // http://shootout.alioth.debian.org/
michael@0: // contributed by Isaac Gouy
michael@0: 
michael@0: function ack(m,n){
michael@0:    if (m==0) { return n+1; }
michael@0:    if (n==0) { return ack(m-1,1); }
michael@0:    return ack(m-1, ack(m,n-1) );
michael@0: }
michael@0: 
michael@0: function fib(n) {
michael@0:     if (n < 2){ return 1; }
michael@0:     return fib(n-2) + fib(n-1);
michael@0: }
michael@0: 
michael@0: function tak(x,y,z) {
michael@0:     if (y >= x) return z;
michael@0:     return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y));
michael@0: }
michael@0: 
michael@0: var ret = 0;
michael@0: for ( var i = 3; i <= 5; i++ ) {
michael@0:     ret += ack(3,i);
michael@0:     ret += fib(17.0+i);
michael@0:     ret += tak(3*i+3,2*i+2,i+1);
michael@0: }
michael@0: assertEq(ret, 57775);