|
这个问题值得思考,不过结果就变得更多了。比如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]]
Copy the Code
4x4部分结果
|
|