Execute Brain****/Raku: Difference between revisions
Content added Content deleted
(prefer comb over split; fix private method call syntax) |
No edit summary |
||
| Line 42: | Line 42: | ||
$!c++; |
$!c++; |
||
die "unbalanced code" if $!c >= @!code.elems; |
die "unbalanced code" if $!c >= @!code.elems; |
||
$ |
$depth++ if @!code[$!c] eq '['; |
||
$ |
$depth-- if @!code[$!c] eq ']'; |
||
} |
} |
||
} |
} |
||
| Line 49: | Line 49: | ||
Test: "Hello World" program: |
Test: "Hello World" program: |
||
<lang perl6> |
<lang perl6>my $code = "++++++++++ |
||
my $code = "++++++++++ |
|||
[>+++++++>++++++++++>+++>+<<<<-] |
[>+++++++>++++++++++>+++>+<<<<-] |
||
>++.>+.+++++++..+++.>++.<<+++++++++++++++.>. |
>++.>+.+++++++..+++.>++.<<+++++++++++++++.>. |
||