RosettaCodeData/Task/Digital-root/J/digital-root-1.j
2023-12-16 21:33:55 -08:00

3 lines
72 B
Text

digrt=: 10&$: :(|&.<:^:<:)"0
addps=: 10&$: :([: <:@# +/@(#.inv)^:a:)"0