Langton's ant: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: use enums, hyperop, gather/take, given/when) |
(→{{header|Perl 6}}: simplify by using the grid to test the loop exit and by including distance in the vector summing) |
||
Line 1,359:
{{trans|Perl}}
In this version we use 4-bits-per-char graphics to shrink the output by 50%.
<lang perl6>my @
constant @blocky = ' ▘▝▀▖▌▞▛▗▚▐▜▄▙▟█'.comb;
constant $size = 100;
Line 1,366:
my ($x, $y) = $size/2, $size/2;
my $dir = (^4).pick;
my $moves = 0;
loop {
given (@plane[$x][$y] // last) {
when White { $dir++; $_ = Black; }
when Black { $dir--; $_ = White; }
}
($x,$y,$moves) »+=« @
}
print "Out of bounds after $
for 0,2,4 ...^ $size - 2 -> $x {
say join '', gather for 0,2,4 ... $size - 2 -> $y {
|