home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CAD08N05.ZIP / FACTI.LSP < prev    next >
Text File  |  1993-02-15  |  111b  |  7 lines
  1. (defun facti (x / sum)
  2.   (setq sum x)
  3.   (repeat (1- x)
  4.     (setq sum (* sum (setq x (1- x))))
  5.     )
  6.   )
  7.