Anonymous user
Munching squares: Difference between revisions
m
→{{header|Mathematica}}: whitespace
(→{{header|Tcl}}: More elegant version, with parameterized table generation) |
m (→{{header|Mathematica}}: whitespace) |
||
Line 86:
=={{header|Mathematica}}==
<lang Mathematica>ListDensityPlot[▼
▲<lang Mathematica>
Table[Table[
FromDigits[BitXor[IntegerDigits[x, 2, 8], IntegerDigits[y, 2, 8]],
2], {x, 0, 255}], {y, 0, 255}]]</lang>
Output #1:
[[File:xorpattern3.png|Mathematica output #1|200px]]
<lang Mathematica>ArrayPlot[Array[BitXor, {511, 511}]]</lang>
Output #2:
|