home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
lisp
/
xlsp20.arc
/
XLISPLSP.ARC
/
FACT.LSP
next >
Wrap
Lisp/Scheme
|
1988-02-12
|
77b
|
4 lines
(defun fact (n)
(cond ((= n 1) 1)
(t (* n (fact (- n 1))))))