38 lines
851 B
Text
38 lines
851 B
Text
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);
|
|
}
|
|
}
|