Data commit

Task/Kaprekar-numbers/PowerShell/kaprekar-numbers-1.psh

@@ -0,0 +1,25 @@
+function Test-Kaprekar ([int]$Number)
+{
+    if ($Number -eq 1)
+    {
+        return $true
+    }
+
+    [int64]$a = $Number * $Number
+    [int64]$b = 10
+
+    while ($b -lt $a)
+    {
+        [int64]$remainder = $a % $b
+        [int64]$quotient  = ($a - $remainder) / $b
+
+        if ($remainder -gt 0 -and $remainder + $quotient -eq $Number)
+        {
+            return $true
+        }
+
+        $b *= 10
+    }
+
+    return $false
+}

Task/Kaprekar-numbers/PowerShell/kaprekar-numbers-2.psh

@@ -0,0 +1,5 @@
+"Kaprekar numbers less than 10,000:"
+1..10000 | ForEach-Object {if (Test-Kaprekar -Number $_) {"{0,6}" -f $_}} | Format-Wide {$_} -Column 17 -Force
+
+"Kaprekar numbers less than 1,000,000:"
+1..1000000 | ForEach-Object {if (Test-Kaprekar -Number $_) {"{0,6}" -f $_}} | Format-Wide {$_} -Column 18 -Force