totient function by murky-satyr

(dotimes(i 301)(do[(r #1=(+ i 10000))(n #1#)(j 2(+ j 1))]((< n 2)(print r))(if #0=(<(fmod n j)1)(dec! r(/ r j)))(while #0#(set! n(/ n j)))))

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

download

return top