{2,3}->{3,2}

RuleShapeToCases1[{{2,3}}->{{3,2}},2]
In[]:=
Out[]=

{1,3}->{2,3}

RuleShapeToCases1[{{1,3}}->{{2,3}},2]
In[]:=
Out[]=
(Length/@WolframModel[#,{{0,0,0}},4,"StatesList"])&/@%24
In[]:=
Out[]=
InteractiveListSelector[ParallelMapMonitored[WolframModelTester1[#,Automatic,3]#&,RuleShapeToCases1[{{1,3}}->{{2,3}},2]]]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,1,1}}{{1,1,1},{2,2,2}}]]
In[]:=
Out[]=
WolframModelTester1[{{1,1,1}}{{1,1,1},{2,2,2}},Automatic,3]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,1,1}}{{2,2,1},{2,2,2}}]]
In[]:=
Out[]=
WolframModelTester1[{{1,1,1}}{{2,2,1},{2,2,2}},Automatic,10]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,1,1}}{{2,1,2},{2,2,2}}]]
In[]:=
Out[]=
WolframModelTester1[{{1,1,1}}{{2,1,2},{2,2,2}},Automatic,10]
In[]:=
Out[]=
}

[ 3 symbols ]

all=RuleShapeToCases1[{{1,3}}->{{2,3}},3];
In[]:=
Length[all]
In[]:=
1708
Out[]=
InteractiveListSelector[ParallelMapMonitored[(Transpose[VertexEdgeCount/@WolframModel[#,{{0,0,0}},4,"StatesList"]]#)&,all]]
In[]:=
Out[]=
{{{1,1,2}}{{1,1,1},{1,1,3}},{{1,1,2}}{{1,1,3},{1,2,2}},{{1,2,1}}{{1,1,1},{2,3,1}},{{1,2,1}}{{2,3,2},{2,3,2}}}
ParallelMapMonitored[WolframModelTester1[#,Automatic,5]&,{{{1,1,2}}{{1,1,1},{1,1,3}},{{1,1,2}}{{1,1,3},{1,2,2}},{{1,2,1}}{{1,1,1},{2,3,1}},{{1,2,1}}{{2,3,2},{2,3,2}}}]
In[]:=
Out[]=
HypergraphPlot/@WolframModel[{{1,1,2}}{{1,1,3},{1,2,2}},{{0,0,0}},8,"StatesList"]
In[]:=
Out[]=
​
RulePlot[WolframModel[{{1,1,2}}{{1,1,3},{1,2,2}}]]
In[]:=
Out[]=

{1,3}->{3,3}

RuleShapeToCases1[{{1,3}}->{{3,3}},2];
In[]:=
Length[%]
In[]:=
480
Out[]=
ParallelMapMonitored[Labeled[WolframModelTester1[#,Automatic,3],#]&,RuleShapeToCases1[{{1,3}}->{{3,3}},2]]
In[]:=
Out[]=
ParallelMapMonitored[(HypergraphPlot/@WolframModel[#,{{0,0,0}},5,"StatesList"])&,{{{1,1,1}}{{1,1,1},{1,1,2},{2,2,2}},{{1,1,1}}{{1,1,1},{1,2,1},{2,2,2}},{{1,1,1}}{{1,1,2},{2,2,2},{2,2,2}}}]
In[]:=
Out[]=