Rosetta Code

Munching squares

Revision as of 15:11, 25 November 2011 by rosettacode>Spekkio (Created page with "=={{header|Mathematica}}== <lang Mathematica> ListDensityPlot[ Table[Table[ FromDigits[BitXor[IntegerDigits[x, 2, 8], IntegerDigits[y, 2, 8]], 2], {x, 0, 255}], {y, 0, 2...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Mathematica

<lang Mathematica> ListDensityPlot[ 

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

</lang> output: 

 

<lang Mathematica> ArrayPlot[Array[BitXor, {511, 511}]] </lang> output: 

 
Retrieved from "https://rosettacode.org/wiki/Munching_squares?oldid=207372"