{RuleSignatureForm[#],Length[EnumerateWolframModelRules[#]]}/@{{{1,1},{2,1}},{{1,2},{2,2}},{{1,2},{3,2}},{{1,3},{2,3}}}
In[]:=
{#1}{#2}&@@@{{{1,1},{2,1}},{{1,2},{2,2}},{{1,2},{3,2}},{{1,3},{2,3}}}
Out[]=
{{{1,1}}{{2,1}},{{1,2}}{{2,2}},{{1,2}}{{3,2}},{{1,3}}{{2,3}}}
In[]:=
Echo[{RuleSignatureForm[#],Length[EnumerateWolframModelRules[#]]}]&/@{{{1,1}}{{2,1}},{{1,2}}{{2,2}},{{1,2}}{{3,2}},{{1,3}}{{2,3}}}
»
{,1}
1
1
2
1
»
{,55}
1
2
2
2
»
{,208}
1
2
3
2
»
{,8338}
1
3
2
3
Out[]=
{{,1},{,55},{,208},{,8338}}
1
1
2
1
1
2
2
2
1
2
3
2
1
3
2
3
In[]:=
Grid[%,FrameAll,Alignment{{Center,Right}}]
Out[]=
1 1 2 1 | 1 |
1 2 2 2 | 55 |
1 2 3 2 | 208 |
1 3 2 3 | 8338 |