Data commit

Task/Subleq/Objeck/subleq.objeck

@@ -0,0 +1,38 @@
+use System.IO;
+
+class Sublet {
+  function : Main(args : String[]) ~ Nil {
+    mem := [
+      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];
+
+    instructionPointer := 0;
+
+    do {
+      a := mem[instructionPointer];
+      b := mem[instructionPointer + 1];
+
+      if (a = -1) {
+        mem[b] := Console->ReadString()->Get(0);
+        instructionPointer += 3;
+      }
+      else if (b = -1) {
+        value := mem[a]->As(Char);
+        value->Print();
+        instructionPointer += 3;
+      }
+      else {
+        mem[b] -= mem[a];
+        if (mem[b] < 1) {
+          instructionPointer := mem[instructionPointer + 2];
+        }
+        else {
+          instructionPointer += 3;
+        };
+      };
+    }
+    while (instructionPointer >= 0);
+  }
+}