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

2 lines
55 B
Text

digrt=: +/@(#.inv)^:_
addpr=: _1 + [: # +/@(#.inv)^:a: