PATHS by m.ukai

open Num#load"nums.cma";;while 1=1do
let n,c=read_int(),ref(Int 1)in
for i=1to n do
c:=Int(n+i)//Int i*/ !c
done;print_endline(string_of_num!c)done

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

download

return to the top page