RosettaCodeData/Task/Digital-root/J/digital-root-1.j
2023-07-01 13:44:08 -04:00

2 lines
65 B
Text

digrot=: +/@(#.inv~&10)^:_
addper=: _1 + [: # +/@(#.inv~&10)^:a: