Munching squares: Difference between revisions
Content added Content deleted
m (→{{header|Mathematica}}: whitespace) |
(added perl) |
||
Line 121: | Line 121: | ||
[[File:xor_pattern_ocaml.png|OCaml output|200px]] |
[[File:xor_pattern_ocaml.png|OCaml output|200px]] |
||
=={{header|Perl}}== |
|||
<lang perl>use GD; |
|||
my $img = new GD::Image(256, 256, 1); |
|||
for my $y(0..255) { |
|||
for my $x(0..255) { |
|||
my $color = $img->colorAllocate( abs(255 - $x - $y), (255-$x) ^ $y , $x ^ (255-$y)); |
|||
$img->setPixel($x, $y, $color); |
|||
} |
|||
} |
|||
print $img->png</lang> |
|||
[[File:perl_xor_pattern.png|Perl output|200px]] |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |