home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / Tools / Preditor 2.0 / Macros / Factorial < prev    next >
Encoding:
Text File  |  1991-06-28  |  342 b   |  25 lines  |  [TEXT/TCEd]
  1. #
  2. #    Factorial
  3. #
  4. #    Last Modified: Friday, June 27, 1991 at 11:46 PM
  5. #    Macro Files for Preditor
  6. #
  7. #    © Copyright Evatac Software  1988-1991
  8. #    All rights reserved
  9. #
  10.  
  11. If (~0 != 1)
  12.     Echo("usage: Fact number")
  13.     Return(-1)
  14. End
  15.  
  16. FactTot = 1 ; FactNum = ~1
  17.  
  18. While (FactNum > 0)
  19.     FactTot = FactTot * FactNum
  20.     FactNum = FactNum - 1
  21. End
  22.  
  23. Return(FactTot)
  24.  
  25.