11 lines
150 B
Text
11 lines
150 B
Text
f( a, b )={
|
|
my(c);
|
|
if( b == a, return(a));
|
|
if( b-a > 1,
|
|
c=(b + a) >> 1;
|
|
return(f(a, c) * f(c+1, b))
|
|
);
|
|
return( a * b );
|
|
}
|
|
|
|
fact(n) = f(1, n)
|