20 lines
386 B
C
20 lines
386 B
C
POWI(statlink, pow , num)
|
|
int *statlink ;
|
|
int pow , num ;
|
|
{
|
|
if ( pow < 0 )
|
|
POWNEG() ;
|
|
else
|
|
{
|
|
int n , p , r ;
|
|
n = num ; p = pow ;
|
|
if ( ( p & 1 ) != 0 ) { r = n; } else { r = 1; }
|
|
p >>= 1 ;
|
|
while ( p != 0 ) {
|
|
n *= n ;
|
|
if ( ( p & 1 ) != 0 ) r *= n ;
|
|
p >>= 1 ;
|
|
}
|
|
return( r ) ;
|
|
}
|
|
}
|