home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / amiga_e-2.1b.lha / Amiga_E-2.1b / Sources / Projects / YaxSrc / fac.yax next >
Encoding:
Text File  |  1993-10-05  |  103 b   |  3 lines
  1. (defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
  2. (write 'compute factorial of: ' (fac (readint)))
  3.