Pinstripe/Display: Difference between revisions
m
→{{header|Perl 6}}: flatten before splice
No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flatten before splice) |
||
Line 497:
=={{header|Perl 6}}==
{{Works with|rakudo|2015-12-20}}
<lang perl6>my $HOR = 1280;
my $VERT = 720;
Line 514 ⟶ 515:
for 1..4 -> $w {
my $hzones = ceiling $HOR / $w / +@colors;
my $line = Buf.new: (flat((@colors Xxx $w) xx $hzones).Array).splice(0,$HOR);
$PPM.write: $line for ^$vzones;
}
$PPM.close;</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(let Pbm # Create PBM of 384 x 288 pixels
|