3: 23
3: 23
In[]:=
StringTuples["ABC",2]
Out[]=
{AA,AB,AC,BA,BB,BC,CA,CB,CC}
In[]:=
allrules=Rule@@@Tuples[{StringTuples["ABC",2],StringTuples["ABC",2]}]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[{#},{First[#]},7,"StatesGraphStructure"]#&,allrules]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[MultiwaySystem[{#},StringTuples["ABC",3],7,"StatesGraphStructure"]#&,allrules]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[Function[r,Labeled[MultiwaySystem[{r},StringTuples["ABC",4],9,"StatesGraphStructure"],Counts[CausalInvariantQ[{r},#,7]&/@StringTuples["ABC",4]]]r],allrules]]
Out[]=
3: 23
3: 23
2: 24
2: 24
2: 33
2: 33
3: 33
3: 33
Close, but not exactly CI