RosettaCodeData/Task/Digital-root/Dc/digital-root.dc

2 lines
42 B
Plaintext

?[10~rd10<p]sp[+z1<q]sq[lpxlqxd10<r]dsrxp