home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
d
/
doslogo.zip
/
LOGOLIB.ZIP
/
FACT.LG
< prev
next >
Wrap
Text File
|
1990-06-11
|
73b
|
5 lines
to fact :n
if equalp :n 1 [output 1]
output (fact (:n - 1)) * :n
end