totient function by kozima

(compile(defun f(n)(loop for k to n count(=(gcd k n)1))))(dotimes(x 301)(format t"~A
"(f(+ x 10000))))

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

download

return top