1 // The Computer Language Shootout
2 // http://shootout.alioth.debian.org/
3 // contributed by Isaac Gouy
6 if (m==0) { return n+1; }
7 if (n==0) { return ack(m-1,1); }
8 return ack(m-1, ack(m,n-1) );
12 if (n < 2){ return 1; }
13 return fib(n-2) + fib(n-1);
18 return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y));
22 for ( var i = 3; i <= 5; i++ ) {
25 ret += tak(3*i+3,2*i+2,i+1);