3 lines
138 B
Text
3 lines
138 B
Text
dsum(n)=my(s); while(n, s+=n%10; n\=10); s
|
|
additivePersistence(n)=my(s); while(n>9, s++; n=dsum(n)); s
|
|
digitalRoot(n)=if(n, (n-1)%9+1, 0)
|