September Morn Update

Task/Digital-root/AppleScript/digital-root.applescript

@@ -0,0 +1,22 @@
+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)