(= r 1 e(expt 10 100)m(expt e 10)b 2)(while:>(= r(if(odd e)(mod(* r b)m)r)b(mod(* b b)m)e(trunc:/ e 2))0)pr.r
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page