RosettaCodeData/Task/Digital-root/J/digital-root-5.j

3 lines
55 B
Plaintext

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