PerformanceTests/LongSpider/controlflow-recursive.js

   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 result = 0;
  22
  23 for ( var i = 3; i <= 9; i++ ) {
  24     result += ack(3,i);
  25     result += fib(17.0+i);
  26     result += tak(3*i+3,2*i+2,i+1);
  27 }
  28
  29 var expected = 504699;
  30 if (result != expected)
  31     throw "ERROR: bad result: expected " + expected + " but got " + result;
  32