check-controlflow-recursive.js (560B)
1 // The Computer Language Shootout 2 // http://shootout.alioth.debian.org/ 3 // contributed by Isaac Gouy 4 5 function ack(m,n){ 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) ); 9 } 10 11 function fib(n) { 12 if (n < 2){ return 1; } 13 return fib(n-2) + fib(n-1); 14 } 15 16 function tak(x,y,z) { 17 if (y >= x) return z; 18 return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y)); 19 } 20 21 var ret = 0; 22 for ( var i = 3; i <= 5; i++ ) { 23 ret += ack(3,i); 24 ret += fib(17.0+i); 25 ret += tak(3*i+3,2*i+2,i+1); 26 } 27 assertEq(ret, 57775);