apps/benchmarks/ack.factor

   1 USE: math
   2 USE: kernel
   3 USE: compiler
   4 USE: test
   5
   6 ! http://inferno.bell-labs.com/cm/cs/who/bwk/interps/pap.html
   7
   8 : ack ( m n -- x )
   9     over zero? [
  10         nip 1+
  11     ] [
  12         dup zero? [
  13             drop 1- 1 ack
  14         ] [
  15             dupd 1- ack >r 1- r> ack
  16         ] if
  17     ] if ;
  18
  19 [ 4093 ] [ 3 9 ack ] unit-test