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

3 lines
159 B
Text

fcn sum(n,b){ n.split(b).sum(0) }
fcn droot(n,b=10,X=0) // -->(digital root, additive persistence)
{ if(n<b)return(n,X); return(self.fcn(sum(n,b),b,X+1)) }