17 lines
388 B
Text
17 lines
388 B
Text
digital = (x) :
|
|
dr = x string # Digital Root.
|
|
ap = 0 # Additive Persistence.
|
|
while (dr length > 1) :
|
|
sum = 0
|
|
dr length times (i): sum = sum + dr(i) number integer.
|
|
dr = sum string
|
|
ap++
|
|
.
|
|
(x, " has additive persistence ", ap,
|
|
" and digital root ", dr, ";\n") join print
|
|
.
|
|
|
|
digital(627615)
|
|
digital(39390)
|
|
digital(588225)
|
|
digital(393900588225)
|