RosettaCodeData/Task/Digital-root/Zkl/digital-root-1.zkl
2017-09-25 22:28:19 +02: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)) }