home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
RiscOS
/
APP
/
DEVS
/
LISP
/
CLISP.ZIP
/
CLisp
/
lsp
/
fact
< prev
next >
Wrap
Lisp/Scheme
|
1992-10-02
|
74b
|
4 lines
(defun fact (n)
(cond ((= n 1) 1)
(t (* n (fact (- n 1))))))