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?