Mathematica如何生成k层深的列表？

Question

例如 3 层深度的

{{{Red, Green}, {Blue, Yellow}}, {{Magenta, Orange}, {Purple, Cyan}}}

想生成

{{{Red, None}, {None, None}}, {{None, None}, {None,None}}},
{{{None, Green}, {None, None}}, {{None, None}, {None,None}}}, 
{{{None, None}, {Blue, None}}, {{None, None}, {None,None}}}, 
{{{None, None}, {None, Yellow}}, {{None, None}, {None,None}}},
......

等等这些只有一个有颜色，另外全都是 None 的所有的这些列表。

因为 MeshShading 里面要求是这种格式。另外，如果有 2^k 种颜色，如何生成  2^k  个这种列表？

Comments

MeshShading 中貌似不支持 None 吧
另外，如果$2^k$种颜色，对应的列表每层是几维的呢（比如你给出的有3层，每层都有2个元素，也就是 2x2x2）。

---

n = 3;
colors = Table[RGBColor[RandomReal[], RandomReal[], RandomReal[]], 2^n]
list = Table[None, 2^n - 1];
Nest[Partition[#, 2] &, #, n - 1] &@Insert[list, colors[[#]], #] & /@
 Range[2^n]

---

None 表示不画，于是可以在图中产生挖洞的效果，是 MeshShading 支持的。

Answer 1

此问题已解决，不再需要答案：https://www.zhihu.com/question/380800144

Answer 2

colors = {{{Black, Green}, {Blue, Yellow}}, {{Magenta, 
    Orange}, {Purple, Gray}}}; n = ArrayDepth[colors]; 
ReplacePart[
   ConstantArray[None, ConstantArray[2, n]], # -> 
    Extract[colors, #]] & /@ Tuples[{1, 2}, n]