RosettaCodeData/Task/Munching-squares/Mathematica/munching-squares-1.math
2023-07-01 13:44:08 -04: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}]]