Modular Exponentiation 2 by *yuko*

do1;read*,i,j,k;n=1;2 if(and(j,1)>0)n=mod(1_8*n*i,k);i=mod(1_8*i*i,k);j=j/2;if(j>0)goto2;1 print'(i0)',n;end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page