WOLFRAM NOTEBOOK

In[]:=
allsigs
Out[]=
In[]:=
EnumerateSubstitutionSystemRules[#,2]&/@Take[allsigs,5]
Out[]=
In[]:=
ParallelMapMonitored[#TimeConstrained[Do[If[TotalCausalInvariantQ[#,t],Return[t]],{t,7}],2]&,EnumerateSubstitutionSystemRules[Echo@#,2]]&/@Take[allsigs,20]
»
{11}
»
{12}
»
{13}
»
{22}
»
{11,11}
»
{14}
»
{23}
»
{11,12}
»
{11,21}
»
{15}
»
{24}
»
{33}
»
{11,13}
»
{11,31}
»
{11,22}
»
{12,12}
»
{12,21}
»
{11,11,11}
»
{16}
»
{25}
Out[]=
In[]:=
Position[%,2]
Out[]=
{{15,14,2},{17,4,2}}
In[]:=
%%[[15,14]]
Out[]=
{AB,ABAA}2
In[]:=
Length[allsigs]
Out[]=
59
In[]:=
ParallelMapMonitored[#TimeConstrained[Do[If[TotalCausalInvariantQ[#,t],Return[t]],{t,7}],2]&,EnumerateSubstitutionSystemRules[Echo@#,2]]&/@Drop[allsigs,20]
»
{34}
»
{11,14}
»
{11,41}
»
{11,23}
»
{11,32}
»
{12,13}
»
{12,31}
»
{13,21}
»
{12,22}
»
{21,22}
»
{11,11,12}
»
{11,11,21}
»
{17}
»
{26}
»
{35}
»
{11,15}
»
{11,51}
»
{44}
»
{11,24}
»
{11,42}
»
{12,14}
»
{12,41}
»
{14,21}
»
{11,33}
»
{13,13}
»
{13,31}
»
{12,23}
»
{12,32}
»
{13,22}
»
{21,23}
»
{22,31}
»
{11,11,13}
»
{11,11,31}
»
{22,22}
»
{11,11,22}
»
{11,12,12}
»
{11,12,21}
»
{11,21,21}
»
{11,11,11,11}
Out[]=

Full results:

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.