Data update

Task/Digital-root/J/digital-root-1.j

@@ -1,2 +1,3 @@
-digrot=: +/@(#.inv~&10)^:_
-addper=: _1 + [: # +/@(#.inv~&10)^:a:
+digrt=: 10&$: :(|&.<:^:<:)"0
+
+addps=: 10&$: :([: <:@# +/@(#.inv)^:a:)"0

Task/Digital-root/J/digital-root-2.j

@@ -1,5 +1,10 @@
-   (, addper, digrot)&> 627615 39390 588225 393900588225
+   (,. addps ,. digrt) 627615 39390 588225 393900588225
       627615 2 9
        39390 2 6
       588225 2 3
 393900588225 2 9
+
+   8 digrt 8b4321
+3
+   8 addps 8b4321
+2

Task/Digital-root/J/digital-root-5.j

@@ -1,2 +0,0 @@
-digrt=: +/@(#.inv)^:_
-addpr=: _1 + [: # +/@(#.inv)^:a:

Task/Digital-root/J/digital-root-6.j

@@ -1,4 +0,0 @@
-   10 digrt 627615
-9
-   10 addpr 627615
-2

Task/Digital-root/MiniScript/digital-root.mini

@@ -0,0 +1,27 @@
+testNumbers = [627615, 39390, 588225, 393900588225, 45, 9991]
+pad = function(n, width)
+	return (n + " " * width)[:width]
+end function
+
+getDigitalRoot = function(n)
+	persistance = 0
+	while floor(log(n)) > 0
+		sum = 0
+		while n > 0
+			sum += n % 10
+			n = floor(n / 10)
+		end while
+		n = sum
+		persistance += 1
+	end while
+	return [n, persistance]
+end function
+
+for num in testNumbers
+	digRoot = getDigitalRoot(num)
+	print pad(num, 12), ""
+	print " has a digital root ", ""
+	print digRoot[0], ""
+	print " and additive persistance ",""
+	print digRoot[1]
+end for

Task/Digital-root/S-BASIC/digital-root.basic

@@ -0,0 +1,31 @@
+rem - return the digital sum of n represented as a string
+function digitalsum(nstr = string) = integer
+   var i, slen, sum = integer
+   var ch = char
+   slen = len(nstr)
+   sum = 0
+   for i = 1 to slen
+     ch = mid(nstr, i, 1)
+     rem - don't process leading or embedded spaces, etc.
+     if ch >= '0' and ch <= '9' then
+        sum = sum + (ch - '0')
+   next i
+end = sum
+
+var nstr = string
+var droot, pers = integer
+
+0again
+   rem - input1 does not advance to next line; control-C will exit
+   input1 "What number"; nstr
+   droot = digitalsum(nstr)
+   pers = 1
+   while droot > 9 do
+      begin
+         droot = digitalsum(str$(droot))
+         pers = pers + 1
+      end
+   print " digital root ="; droot; " persistence ="; pers
+   goto 0again
+
+end

Task/Digital-root/Wren/digital-root.wren

@@ -1,4 +1,4 @@
-import "/fmt" for Fmt
+import "./fmt" for Fmt
 
 var sumDigits = Fn.new { |n|
     var sum = 0