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