home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / new / amigalibdisks / d977 / forth / programs < prev    next >
Text File  |  1994-04-03  |  4KB  |  1 lines
  1.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 \ recursion                                           911023jb )forget job                                                       : job ;                                                         : recurs latest pfa cfa , ; immediate                                                                                           : cnt  ( n -- )                                                   dup 1 =                                                         if . else dup . 1- recurs then ;  \ recurs stands for cnt                                                                     : factorial   ( n -- )                                               dup 1 = not                                                        if dup 1-                                                         recurs        \ recurs stands for factorial                     *                                                           then ;