RosettaCodeData/Task/Exponentiation-operator/Stata/exponentiation-operator.stata
2023-07-01 13:44:08 -04:00

10 lines
120 B
Text

mata
function pow(a, n) {
x = a
for(p=1; n>0; n=floor(n/2)) {
if(mod(n,2)==1) p = p*x
x = x*x
}
return(p)
}
end