Anonymous user
Langton's ant: Difference between revisions
→{{header|Perl 6}}: use enums, hyperop, gather/take, given/when
(→{{header|Perl 6}}: shrink output by 50%) |
(→{{header|Perl 6}}: use enums, hyperop, gather/take, given/when) |
||
Line 1,360:
In this version we use 4-bits-per-char graphics to shrink the output by 50%.
<lang perl6>my @dirs = [1,0], [0,-1], [-1,0], [0,1];
constant @
constant $size = 100;
enum Square <White Black>;
my @plane = [
my ($x, $y) = $size/2, $size/2;
my $dir = (^4).pick;
loop (my $move = 0; 0 <= $x < $size and 0 <= $y < $size; $move++) {
▲ $dir = ($dir - 1) % @dirs;
}
($x,$y) »+=« @dirs[$dir
}
print "Out of bounds after $move moves at ($x, $y)\n";
for 0,2,4 ...^ $size - 2 -> $x {
say join '', gather for 0,2,4 ... $size - 2 -> $y {
+ 2 * @plane[$x][$y+1]
+ 4 * @plane[$x+1][$y]
+ 8 * @plane[$x+1][$y+1] ];
}
}</lang>
{{out}}
| |||