2016 Update

Task/Munching-squares/BBC-BASIC/munching-squares.bbc

@@ -0,0 +1,20 @@
+      size% = 256
+
+      VDU 23,22,size%;size%;8,8,16,0
+      OFF
+
+      DIM coltab%(size%-1)
+      FOR I% = 0 TO size%-1
+        coltab%(I%) = ((I% AND &FF) * &010101) EOR &FF0000
+      NEXT
+
+      GCOL 1
+      FOR I% = 0 TO size%-1
+        FOR J% = 0 TO size%-1
+          C% = coltab%(I% EOR J%)
+          COLOUR 1, C%, C%>>8, C%>>16
+          PLOT I%*2, J%*2
+        NEXT
+      NEXT I%
+
+      REPEAT WAIT 1 : UNTIL FALSE

Task/Munching-squares/Perl-6/munching-squares-2.pl6

@@ -1,8 +1,8 @@
 my @colors = map -> $r, $g, $b { Buf.new: $r, $g, $b },
 		map -> $x { floor ($x/256) ** 3 * 256 },
-		    ((0...255) Z
+		    (flat (0...255) Z
 		     (255...0) Z
-		     (0,2...254),(254,252...0));
+		     flat (0,2...254),(254,252...0));
 
 
 my $PPM = open "munching.ppm", :w, :bin or die "Can't create munching.ppm: $!";