Sum of Divisors for OCaml Golf Competition by mzp

let rec(^)i s n=if i=0 then s else (i-1^s+(if n mod i=0 then i else 0))n;;while 1=1 do(fun n->Printf.printf"%d: %d
"n((n^0)n))(read_int())done

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

download

return to the top page