totient function by ksk

let rec($)n k m i=n<2&()=Printf.printf"%d
"k||n/i*i=n&(n/i$m-m/i)m i||(n$k)k(i+1);;for n=10000to 10300do(n$n)n 2done

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

download

return top