Data update

Task/Digital-root/PowerShell/digital-root-1.ps1

@@ -0,0 +1,19 @@
+function Get-DigitalRoot ($n)
+{
+    function Get-Digitalsum ($n)
+    {
+        if ($n -lt 10) {$n}
+        else {
+            ($n % 10) + (Get-DigitalSum ([math]::Floor($n / 10)))
+        }
+    }
+
+    $ap = 0
+    do {$n = Get-DigitalSum $n; $ap++}
+    until ($n -lt 10)
+    $DigitalRoot = [pscustomobject]@{
+        'Sum' = $n
+        'Additive Persistence' = $ap
+    }
+    $DigitalRoot
+}

Task/Digital-root/PowerShell/digital-root-2.ps1

@@ -0,0 +1,9 @@
+function Get-DigitalRoot {
+    param($n)
+    $ap = 0
+    do {$n = Invoke-Expression ("0"+([string]$n -split "" -join "+")+"0"); $ap++} while ($n -ge 10)
+    [PSCustomObject]@{
+        DigitalRoot = $n
+        AdditivePersistence = $ap
+    }
+}