Subfactorial FIXED by ksk

open Num#load"nums.cma"let rec($)n m i=print_endline(string_of_num m);i<52&(Int(i-1)*/(n+/m)$n)(i+1);;(Int 0$Int 1)2

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

download

return to the top page