WOLFRAM NOTEBOOK

In[]:=
finalStatesPlots[alldistinct][8]
Out[]=
In[]:=
Position[$rewritesOrdered24h4,alldistinct[[6]]]
Out[]=
{{11}}
In[]:=
alldistinct[[6]]
Out[]=
OrderedNet[{{1,1},{{h[1],h[2],6},{h[3],h[4],3}}}]OrderedNet[{{1,1,1,1},{{4,h[2],7},{1,h[4],10},{3,11,h[1]},{6,8,h[3]}}}]
In[]:=
finalStatesPlots[alldistinct][10]
Out[]=
6,7,11,12
In[]:=
Graph3D
Out[]=
In[]:=
Graph3D
Out[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.