home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / forth / !FORTH / TestProgs / acker next >
Encoding:
Text File  |  1989-08-14  |  599 b   |  28 lines
  1. (                AKERMAN BENCHMARK            )
  2. ( © Mike Atkinson 1989                        )
  3.  
  4. CORE
  5. : ackerman 
  6.     OVER
  7.     IF
  8.        DUP
  9.        IF
  10.           1- OVER 1- LROT ackerman ackerman
  11.        ELSE
  12.           DROP 1- 1 ackerman
  13.        ENDIF
  14.     ELSE
  15.        + 1+
  16.     ENDIF ;
  17. 0 VARIABLE print_mode
  18. : time PRINT_MODE @ DUP print_mode ! 1 OR PRINT_MODE ! CRET OVER OVER ." ackerman(" . ." ," . ." ) = " 
  19.        TIME LROT ackerman SWAP TIME SWAP - SWAP .
  20.        ." ,   Time taken = " . ."  centi-seconds" print_mode @ PRINT_MODE ! ;
  21. 3 2 time
  22. 3 3 time
  23. 3 4 time
  24. 3 5 time
  25. 3 6 time
  26. 3 7 time
  27. 3 8 time
  28.