Data update

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

@@ -1,19 +0,0 @@
-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.psh

@@ -1,9 +0,0 @@
-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
-    }
-}