You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
Groupings[Table[s,5],Construct2]
Out[]=
{s[s][s][s][s],s[s[s][s][s]],s[s[s][s]][s],s[s[s[s][s]]],s[s[s]][s][s],s[s[s[s]][s]],s[s[s[s]]][s],s[s[s[s[s]]]],s[s][s[s]][s],s[s[s][s[s]]],s[s][s][s[s]],s[s][s[s][s]],s[s[s]][s[s]],s[s][s[s[s]]]}
In[]:=
ResourceFunction["MultiwayCombinator"][skrules,#,15,"StatesGraphStructure"]&/@Groupings[Table[s,5],Construct2]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
ResourceFunction["MultiwayCombinator"][skrules,#,15,"StatesGraphStructure"]&/@Groupings[Table[s,6],Construct2]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
Size 8
Size 8
[ Including k ]
[ Including k ]