Munching squares: Difference between revisions

=={{header|Perl 6}}==

<lang perl6>my @scale = ^256;

my @colors = map -> $r, $g, $b { Buf.new: $r, $g, $b },

((0...255) Z

(255...0) Z

(0,2...254),(254,252...0));

my $PPM = open "munching.ppm", :w, :bin or die "Can't create munching.ppm: $!";

$PPM.print: qq:to/EOH/;

P6

# munching.pgm

256 256

255

EOH

$PPM.write: @colors[$_] for @scale X+^ @scale;

$PPM.close;</lang>

[[File:perl_6_xor_pattern.png|Perl 6 output|200px]]