(                AKERMAN BENCHMARK            )
(  Mike Atkinson 1989                        )

CORE
: ackerman 
    OVER
    IF
       DUP
       IF
          1- OVER 1- LROT ackerman ackerman
       ELSE
          DROP 1- 1 ackerman
       ENDIF
    ELSE
       + 1+
    ENDIF ;
0 VARIABLE print_mode
: time PRINT_MODE @ DUP print_mode ! 1 OR PRINT_MODE ! CRET OVER OVER ." ackerman(" . ." ," . ." ) = " 
       TIME LROT ackerman SWAP TIME SWAP - SWAP .
       ." ,   Time taken = " . ."  centi-seconds" print_mode @ PRINT_MODE ! ;
3 2 time
3 3 time
3 4 time
3 5 time
3 6 time
3 7 time
3 8 time
