RosettaCodeData/Task/Munching-squares/Mathematica/munching-squares-1.math

5 lines
137 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
ListDensityPlot[
Table[Table[
FromDigits[BitXor[IntegerDigits[x, 2, 8], IntegerDigits[y, 2, 8]],
2], {x, 0, 255}], {y, 0, 255}]]