| Original Message (ID '274720') By yehuda: |
| 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 |
|
