Data update

Task/Digital-root/Yabasic/digital-root.basic

@@ -0,0 +1,21 @@
+dim a(2)
+a(0) = 627615 : a(1) = 39390 : a(2) = 588225
+for i = 0 to arraysize(a(),1)
+    dr = digitalRoot(a(i))
+    print a(i), "\tAdditive persistence = ", ap, "\tDigital root = ", dr
+next i
+end
+
+sub digitalRoot(n)
+    ap = 0
+    repeat
+        dr = 0
+        while n > 0
+            dr = dr + mod(n, 10)
+            n = int(n / 10)
+        wend
+        ap = ap + 1
+        n = dr
+    until dr < 10
+    return dr
+end sub