home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / e / amiga_e / src / lang / yax / fac.yax next >
Lisp/Scheme  |  1992-09-02  |  103b  |  3 lines
  1. (defun fac (n) (if (eq n 1) 1 (* (fac (sub n 1)) n)))
  2. (write 'compute factorial of: ' (fac (readint)))
  3.