9 lines
109 B
Awk
9 lines
109 B
Awk
function fact(n)
|
|
{
|
|
if ( n < 1 ) return 1;
|
|
r = 1
|
|
for(m = 2; m <= n; m++) {
|
|
r *= m;
|
|
}
|
|
return r
|
|
}
|