Factorial by m.ukai

#load"nums.cma"open Num
let rec(^)n a=n>0&n-1^a*/Int n;read_int(print_endline(string_of_num a))^a//a;;read_int()^Int 1

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

download

return to the top page