| Author |
Comment/Response |
yehuda
|
 01/23/13 06:46am
This is a coloring problems over a rectangular grid
It has a simple solution, so I'll just show you how to implement it rather than find it
colors = {Red, Green, Blue, Yellow};
oddColors = PadRight[colors, 10, colors];
rotcolors = RotateRight[{Red, Green, Blue, Yellow}, 2];
evenColors = PadRight[rotcolors, 10, rotcolors];
ArrayPlot[Partition[Flatten[Table[{oddColors, evenColors}, {5}]], 10]]
yehuda
URL: , |
|
