首页 > 代码库 > HNOI2008越狱(快速幂)

HNOI2008越狱(快速幂)

快速幂水过,贴一下模版。

const mo=100003;
var x,y,n,m:int64;
function power(num,times:int64):int64;
 var temp:int64;
 begin
 if times=1 then exit(num);
 temp:=power(num,times>>1);
 power:=(temp*temp) mod mo;
 if times and 1=1 then power:=(power*num) mod mo;
 end;
procedure main;
 begin
 readln(m,n);
 x:=power(m,n);
 y:=power(m-1,n-1);
 y:=(y*m) mod mo;
 writeln((x-y+mo) mod mo);
 end;
begin
 main;
end.