Factorial by ksk

open Num#load"nums.cma"let rec($)i x=i=0&()=print_endline(string_of_num x);i<1&read_int()$x//x;i-1$Int i*/x;;-1$Int 1

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

download

return to the top page