totient function by xsd

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

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

download

return to the top page