totient function by xsd

for i=10000to 10300do
let rec($)a b c d=a=0&()=Printf.printf"%d
"b||c>0&(a$b)(d mod c)c||(a-1$b+1/d)(a-1)i in(i$0)0i
done

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

download

return to the top page