Data commit

Task/Subleq/PowerShell/subleq-1.psh

@@ -0,0 +1,37 @@
+function Invoke-Subleq ([int[]]$Program)
+{
+    [int]$ip, [string]$output = $null
+
+    try
+    {
+        while ($ip -ge 0)
+        {
+            if ($Program[$ip] -eq -1)
+            {
+                $Program[$Program[$ip + 1]] = [int](Read-Host -Prompt SUBLEQ)[0]
+            }
+            elseif ($Program[$ip + 1] -eq -1)
+            {
+                $output += "$([char]$Program[$Program[$ip]])"
+            }
+            else
+            {
+                $Program[$Program[$ip + 1]] -= $Program[$Program[$ip]]
+
+                if ($Program[$Program[$ip + 1]] -le 0)
+                {
+                    $ip = $Program[$ip + 2]
+                    continue
+                }
+            }
+
+            $ip += 3
+        }
+
+        return $output
+    }
+    catch [IndexOutOfRangeException],[Exception]
+    {
+        Write-Host "$($Error[0].Exception.Message)" -ForegroundColor Red
+    }
+}

Task/Subleq/PowerShell/subleq-2.psh

@@ -0,0 +1 @@
+Invoke-Subleq -Program 15,17,-1,17,-1,-1,16,1,-1,16,3,-1,15,15,0,0,-1,72,101,108,108,111,44,32,119,111,114,108,100,33,10,0