In[]:=
Get["~/git/PostTagSystem/Kernel/init.m"]
In[]:=
PostTagSystem[{0, {1, 1, 1}}]
Out[]=
PostTagSystemEvolution
States: 11

In[]:=
PostTagSystem[{0, {1, 1, 1}}]["StateGraph", VertexLabels  Automatic]
Out[]=
In[]:=
PostTagSystem[{0, {1, 1, 1}}]["State", 6]
Out[]=
{1,{0,1,1,1,0}}
In[]:=
List @@@ AllInits[0 ;; 14]
Out[]=
{{0,{}},{1,{}},{2,{}},{0,{0}},{0,{1}},{1,{0}},{1,{1}},{2,{0}},{2,{1}},
⋯98283⋯
,{2,{1,1,1,1,1,1,1,1,1,1,0,1,1,1}},{2,{1,1,1,1,1,1,1,1,1,1,1,0,0,0}},{2,{1,1,1,1,1,1,1,1,1,1,1,0,0,1}},{2,{1,1,1,1,1,1,1,1,1,1,1,0,1,0}},{2,{1,1,1,1,1,1,1,1,1,1,1,0,1,1}},{2,{1,1,1,1,1,1,1,1,1,1,1,1,0,0}},{2,{1,1,1,1,1,1,1,1,1,1,1,1,0,1}},{2,{1,1,1,1,1,1,1,1,1,1,1,1,1,0}},{2,{1,1,1,1,1,1,1,1,1,1,1,1,1,1}}}
large output
show less
show more
show all
set size limit...
In[]:=
PostTagSystem[List @@@ AllInits[0 ;; 14]]
Out[]=
PostTagSystemEvolution
States: 1209574

In[]:=
stateGraph2 = PostTagSystem[List @@@ AllInits[0 ;; 2]]["StateGraph"]
Out[]=
In[]:=
Union[Count[1] /@ Normal[EdgeCycleMatrix[Echo @ PostTagSystem[List @@@ AllInits[0 ;; 9]]["StateGraph"]]]]
»
Graph
Vertex count: 32987
Edge count: 32984

Out[]=
{2,4,6,8,10,16,28,40}