WOLFRAM NOTEBOOK

1,2 3,2

In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,1},{3,1},{3,2}},{{0,0}},5,"FinalState"]]
Out[]=
In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,1},{3,1},{3,2}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},7,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{1,2}}{{2,3},{2,3},{3,1}},{{0,0}},3,"FinalState"]]
Out[]=

1,2 4,2

Just 3 symbols:
NOTE: this search uses 10 instead of 6 max symbols

1,32,3

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.