Modular Exponentiation by ksk

open Num#load"nums.cma"let rec($)i n=i>99&()=print_string(string_of_num n)||i+1$mod_num(n**/Int 10)(Int 10**/Int 1000);;0$Int 2

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

download

return to the top page