Colour pinstripe/Display: Difference between revisions
m
→{{header|Raku}}: 'flatmap' deprecated
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: 'flatmap' deprecated) |
|||
Line 1,091:
=={{header|Raku}}==
(formerly Perl 6)
<lang perl6>my ($x,$y) = 1280, 720;
Line 1,116 ⟶ 1,115:
for 1..4 -> $width {
my $stripes = ceiling $x / $width / +@colors;
my $row = [flat ((@colors Xxx $width) xx $stripes).
$img.put: $row for ^$vzones;
}
| |||