Digital root Fixed by youz

(loop(do*((n(read))(k n(reduce'+(#0=format()"~A"k):key'digit-char-p)))((< k 10)(#0#t"digital_root(~A)=~D
"n k))))

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

download

return to the top page