Colour pinstripe/Display: Difference between revisions
Content deleted Content added
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;
}
|