18 lines
304 B
Text
18 lines
304 B
Text
func digsum num .
|
|
while num > 0
|
|
s += num mod 10
|
|
num = num div 10
|
|
.
|
|
return s
|
|
.
|
|
func[] digrootpers x .
|
|
while x > 9
|
|
x = digsum x
|
|
cnt += 1
|
|
.
|
|
return [ x cnt ]
|
|
.
|
|
numbers[] = [ 627615 39390 588225 393900588225 ]
|
|
for i in numbers[]
|
|
print i & " -> " & digrootpers i
|
|
.
|