23 lines
362 B
AppleScript
23 lines
362 B
AppleScript
on digitalroot(N as integer)
|
|
script math
|
|
to sum(L)
|
|
if L = {} then return 0
|
|
(item 1 of L) + sum(rest of L)
|
|
end sum
|
|
end script
|
|
|
|
set i to 0
|
|
set M to N
|
|
|
|
repeat until M < 10
|
|
set digits to the characters of (M as text)
|
|
set M to math's sum(digits)
|
|
set i to i + 1
|
|
end repeat
|
|
|
|
{N:N, persistences:i, root:M}
|
|
end digitalroot
|
|
|
|
|
|
digitalroot(627615)
|