home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.6
/
ffcollection-1-6-1993-02.iso
/
ff_disks
/
061-090
/
ff_070.lha
/
Logo
/
logo.7
< prev
next >
Wrap
Text File
|
1987-05-02
|
335b
|
12 lines
;
;the following program demonstrates the use of OUTPUT
;
to factorial :x
if :x < 2 [output 1] [output (factorial :x-1) * :x]
end
to demo
print [' enter ']
print [' print [factorial 5] ']
print [' to get the factorial of 5. This procedure uses']
print ['recursion and the OUTPUT statement to do its work.]
end