Anonymous user
Execute Brain****/Raku: Difference between revisions
prefer comb over split; fix private method call syntax
(added perl6) |
(prefer comb over split; fix private method call syntax) |
||
Line 8:
method new (Str $code) {
BFInterpreter.bless(*,code => $code.lines.
}
Line 14:
$!c = 0;
$!m = 0;
while $!c < @!code {
given @!code[$!c] {
when '>' { $!m++ }
Line 23 ⟶ 22:
when '.' { @!mem[$!m].chr.print }
when ',' {
@!input_buffer = $*IN.get.
@!mem[$!m] = @!input_buffer.shift;
}
when '[' {
@!mem[$!m] == 0 ?? self!jump
}
when ']' {
| |||