Munching squares: Difference between revisions

From Rosetta Code
Content added Content deleted
(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...")
 
m (mark as a draft task)
Line 1: Line 1:
{{draft task}}<!-- I presume… -->

=={{header|Mathematica}}==
=={{header|Mathematica}}==
<lang Mathematica>
<lang Mathematica>

Revision as of 15:53, 26 November 2011

Munching squares is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

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: