Practical Numbers by m.ukai

let rec c i n s=s=0&(i>n&()=Printf.printf"%d
"n;n>500||c 2(n+1)1)||c(i+1)n(s+n/i*i/n*i-1);;c 2 1 1

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

download

return to the top page