Execute Brain****: Difference between revisions
Content deleted Content added
→{{header|AWK}}: I should add the output if I say I'm adding the output. |
Update to use new numeric escape sequence |
||
Line 1,492:
const proc: brainF (in string: source, inout file: input, inout file: output) is func
local
var array char: memory is 100000 times '\0
var integer: dataPointer is 50000;
var integer: instructionPointer is 1;
Line 1,506:
when {','}: memory[dataPointer] := getc(input);
when {'['}: # Forward if zero at dataPointer
if memory[dataPointer] = '\0
nestingLevel := 1;
repeat
Line 1,517:
end if;
when {']'}: # Backward if non-zero at dataPointer
if memory[dataPointer] <> '\0
nestingLevel := 1;
repeat
| |||