Langton's ant: Difference between revisions

m
→‎{{header|Perl 6}}: the vectors are also constant
(→‎{{header|Perl 6}}: move the defined test into the switch; we really use a quarter of the output area, not 50%)
m (→‎{{header|Perl 6}}: the vectors are also constant)
Line 1,359:
{{trans|Perl}}
In this version we use 4-bits-per-char graphics to shrink the output to a quarter the area of ASCII graphics.
<lang perl6>myconstant @vecs = [1,0,1], [0,-1,1], [-1,0,1], [0,1,1];
constant @blocky = ' ▘▝▀▖▌▞▛▗▚▐▜▄▙▟█'.comb;
constant $size = 100;
Anonymous user