Data commit

Task/Self-describing-numbers/PowerShell/self-describing-numbers-1.psh

@@ -0,0 +1,12 @@
+function Test-SelfDescribing ([int]$Number)
+{
+    [int[]]$digits = $Number.ToString().ToCharArray() | ForEach-Object {[Char]::GetNumericValue($_)}
+    [int]$sum = 0
+
+    for ($i = 0; $i -lt $digits.Count; $i++)
+    {
+        $sum += $i * $digits[$i]
+    }
+
+    $sum -eq $digits.Count
+}

Task/Self-describing-numbers/PowerShell/self-describing-numbers-2.psh

@@ -0,0 +1 @@
+Test-SelfDescribing -Number 2020

Task/Self-describing-numbers/PowerShell/self-describing-numbers-3.psh

@@ -0,0 +1,6 @@
+11,2020,21200,321100 | ForEach-Object {
+    [PSCustomObject]@{
+        Number = $_
+        IsSelfDescribing = Test-SelfDescribing -Number $_
+    }
+} | Format-Table -AutoSize