HQ9+fuck Interpreter

[himitsu]

Und da behauptet man, ich habe Lange Weile.

So, jetzt fehlt noch der Schritt 2 > einen HQ9+fuck-Interpreter geschrieben in HQ9+fuck

[add]

Zitat:

SetLength(Memory, MP + 65536); //einfach mal 64 KiB dazu reservieren

65536 * SizeOf(Memory[0]) sind aber keine 64 KiB

Delphi-Quellcode:

...
Counter := 1;
case Source[IP] of
  '[': inc(Counter);
  ']': dec(Counter);
end;
...

Und sicher, daß Counter:=1; dort jeweils an der richtigen Stelle steht?