Modular Exponentiation 2 by youz

(while(= b(read)e(read)m(read)r 1)(while:>(= r(if odd.e(mod(* r b)m)r)b(mod(* b b)m)e(trunc:/ e 2))0)prn.r)

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

download

return to the top page