User Portlet
| Discussions |
|---|
| Sure there are more efficient ways... but this one works just fine: background[i_, j_] := If[EvenQ[i + j], Red, Black]; color = Flatten[Table[{i, j} -> background[i, j], {i, 8}, {j, 8}]]; Grid[Table[\[Placeholder], {8}, {8}], Frame -> All,... |