(while(print((rec(f a b c)(let1 a(modulo a c)(if(= b 1)a(if(odd? b)(modulo(* a(f a(- b 1)c))c)(f(* a a)(/ b 2)c)))))#0=(read)#0##0#)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page