Munching squares: Difference between revisions
Content added Content deleted
m (mark as a draft task) |
No edit summary |
||
| Line 1: | Line 1: | ||
{{task|Raster graphics operations}}[[Category:Graphics algorithms]] |
|||
{{draft task}}<!-- I presume… --> |
|||
=={{header|Mathematica}}== |
=={{header|Mathematica}}== |
||
Revision as of 08:51, 28 November 2011
You are encouraged to solve this task according to the task description, using any language you may know.
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:
