回复 student_qwh
思路应该对的,蓝6红3就有6种了。
问题若改为$4\times 4$又怎么办?或增加为3色? ...
realnumber 发表于 2019-2-15 11:34
这个问题值得思考,不过结果就变得更多了。比如2种颜色染3x3虽然只有102种,但变为4x4时,结果激增至22874种。- n = 4;
- u = ArrayReshape[Tuples[{1, -1}, n^2], {2^(n^2), n, n}]; v =
- Select[u,
- FreeQ[Total[#, {1}], n] && FreeQ[Total[#, {1}], -n] &&
- FreeQ[Total[#, {2}], n] && FreeQ[Total[#, {2}], -n] &];
- v // Length
- (* 绘制前16个结果 *)
- ArrayPlot[#, ColorRules -> {1 -> LightRed, -1 -> LightBlue},
- ImageSize -> Tiny, Mesh -> All, Frame -> None,
- FrameTicks -> None] & /@ v[[1 ;; 16]]
复制代码
4x4部分结果
|