home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
FAC.(X)
< prev
next >
Wrap
Text File
|
1993-11-07
|
242b
|
10 lines
# n! = fac(n), factorial
0! := 1
1! := 1
inf! := inf
x_ ! := if(x>1, x*(x-1)! )
n_ ! := if(n>170, inf)
#x_ ! := if( numeric==on, gamma(x+1), if(x>1 x*(x-1)! ))
#n_! := if( n>1 and isinteger(n), n*(n-1)!, if(numeric==on, gamma(n+1))