controlflow-recursive.js 675 B

1234567891011121314151617181920212223242526272829303132
  1. // The Computer Language Shootout
  2. // http://shootout.alioth.debian.org/
  3. // contributed by Isaac Gouy
  4. function ack(m,n){
  5. if (m==0) { return n+1; }
  6. if (n==0) { return ack(m-1,1); }
  7. return ack(m-1, ack(m,n-1) );
  8. }
  9. function fib(n) {
  10. if (n < 2){ return 1; }
  11. return fib(n-2) + fib(n-1);
  12. }
  13. function tak(x,y,z) {
  14. if (y >= x) return z;
  15. return tak(tak(x-1,y,z), tak(y-1,z,x), tak(z-1,x,y));
  16. }
  17. var result = 0;
  18. for ( var i = 3; i <= 5; i++ ) {
  19. result += ack(3,i);
  20. result += fib(17.0+i);
  21. result += tak(3*i+3,2*i+2,i+1);
  22. }
  23. var expected = 57775;
  24. if (result != expected)
  25. throw "ERROR: bad result: expected " + expected + " but got " + result;