RosettaCodeData/Task/Munching-squares/Mathematica/munching-squares-1.math
2015-02-20 09:02:09 -05:00

4 lines
137 B
Text

ListDensityPlot[
Table[Table[
FromDigits[BitXor[IntegerDigits[x, 2, 8], IntegerDigits[y, 2, 8]],
2], {x, 0, 255}], {y, 0, 255}]]