Subleq: Difference between revisions
Content deleted Content added
Subleq en FreeBASIC |
|||
Line 2,716:
(formerly Perl 6)
{{trans|Perl}}
<lang perl6>my @hello-world =
|<15 17 -1 17 -1 -1 16 1 -1 16 3 -1 15 15 0 0 -1>,
|"Hello, world!\n\0".comb.map(*.ord);
my $ip = 0;
while $ip >= 0 && $ip < @memory {
my ($a, $b, $c) = @memory[$ip
$ip += 3;
if $a < 0 {
} elsif $b < 0 {
} else {
}
}
}
run-subleq @hello-world;</lang>
{{out}}
|