Munching squares: Difference between revisions

Content added Content deleted

Inline

@@ Line 329: / Line 329: @@
 =={{header|Perl 6}}==
-<lang perl6>my @scale = ^256;
+<lang perl6>my @colors = map -> $r, $g, $b { Buf.new: $r, $g, $b },
-my @colors = map -> $r, $g, $b { Buf.new: $r, $g, $b },
+		map -> $x { floor ($x/256) ** 3 * 256 },
-    ((0...255) Z
+		    ((0...255) Z
-     (255...0) Z
+		     (255...0) Z
-     (0,2...254),(254,252...0));
+		     (0,2...254),(254,252...0));
 my $PPM = open "munching.ppm", :w, :bin or die "Can't create munching.ppm: $!";
@@ Line 341: / Line 342: @@
     # munching.pgm
 256
     EOH
-$PPM.write: @colors[$_] for @scale X+^ @scale;
+$PPM.write: @colors[$_] for ^256 X+^ ^256;
 $PPM.close;</lang>