Digital root/Multiplicative digital root: Difference between revisions

for n = 1 to len(num)

sum = 0

numold = num[n]

while true

pro = 1

strnum = string(numold)

for nr = 1 to len(strnum)

pro = pro * number(strnum[nr])

next

sum = sum + 1

numold = pro

numn = string(num[n])

sp = 6 - len(string(num[n]))

if sp > 0

for p = 1 to sp + 2

numn = " " + numn

next

ok

if len(string(numold)) = 1 and len(num) < 5

see "" + numn + " " + numold + " " + sum + nl

exit

ok

if len(string(numold)) = 1 and len(num) > 4

root2[numold+1] = root2[numold+1] + 1

if root2[numold+1] < 6

root[numold+1][root2[numold+1]] = num[n]

ok

exit

ok

end