home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_01_05
/
1n05047a
< prev
next >
Wrap
Text File
|
1990-09-05
|
197b
|
17 lines
unsigned long factorial(unsigned long n)
{
unsigned long result;
if (n > 1LU)
{
for (unsigned long x = 2LU; x <= n; ++x)
{
result *= x;
}
}
return result;
}