home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
ace_basic
/
ace
/
prgs
/
misc
/
fact.b
< prev
next >
Wrap
Text File
|
1995-08-21
|
301b
|
17 lines
'...factorial (calculated recursively).
'...note that 0! = 1 by definition.
defsng f,n,x
sub fact(n)
if n<2 then fact=1 else fact=n*fact(n-1)
end sub
repeat
print
repeat
input "Enter an integer (0 or higher, -1 to stop): ",x
until x>=-1
if x<>-1 then print "--->>";fact(x)
until x=-1