In[]:=
IteratedGame[{TuringMachineStrategy[{2079,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]
Out[]=
{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}
ColumnGridTable[{#,2,2},i,{100,11},ImageSize->55,"LabelInput"->True],{i,10},Alignment->Top&/@{2242,2439,3555}
In[]:=
IteratedGame[{TuringMachineStrategy[{2242,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]
Out[]=
{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}
In[]:=
IteratedGame[{TuringMachineStrategy[{2439,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]
Out[]=
{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}
In[]:=
IteratedGame[{TuringMachineStrategy[{3555,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]
Out[]=
{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}
(*uniq=ReverseSortCounts/@Select[{All,2,2},{1,2^10},2^14,"Steps"],FreeQ[Infinity];*)
In[]:=
uniq=CloudImport[CloudObject[
https://www.wolframcloud.com/obj/456c61f6-1229-407a-ab49-6a596970608a
]];In[]:=
uniq
Out[]=
In[]:=
ParallelSelectRange[0,4095],FreeQ[{#,2,2},{1,2^9},2^12],Undefined&
Out[]=
In[]:=
#->IteratedGame[{TuringMachineStrategy[{#,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]&/@RandomSample[%556,10]
Out[]=
{4048{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},762{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2013{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3929{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2747{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1680{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3952{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3794{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3805{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2776{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}}
In[]:=
#->IteratedGame[{TuringMachineStrategy[{#,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]&/@RandomSample[%556,20]
Out[]=
{3912{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},624{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2020{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1797{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3817{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1724{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3811{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2806{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},943{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3918{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},4090{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2930{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2399{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},295{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},3931{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2537{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2804{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1732{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},269{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1004{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}}
In[]:=
$UniqueHaltingTM22
Out[]=
{64,192,445,327,323,449,2253,2281,1933,2127,2155,1961,925,953,2529,2447,1505,2403,2475,4001}
In[]:=
#->IteratedGame[{TuringMachineStrategy[{#,2,2},200],FSMStrategyFunction[{1165,3,2}]},{},10]&/@
Out[]=
{64{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},192{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},445{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},327{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},323{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},449{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2253{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2281{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1933{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2127{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2155{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1961{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},925{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},953{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2529{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2447{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},1505{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2403{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},2475{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}},4001{{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1},{0,1}}}
In[]:=
#->IteratedGame[{TuringMachineStrategy[{#,2,2},200],FSMStrategyFunction[{30,2,2}]},{},10]&/@
Out[]=
{64{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},192{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},445{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},327{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},323{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},449{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2253{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2281{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},1933{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2127{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2155{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},1961{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},925{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},953{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2529{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2447{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},1505{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2403{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},2475{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},4001{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}}}
In[]:=
RandomSample[$FSMUnique32,10]
Out[]=
{1015,3491,2510,3195,1117,1011,3018,1262,3071,2506}
In[]:=
Select[Flatten[ParallelTable[{a,b}->IteratedGame[{TuringMachineStrategy[{a,2,2},200],FSMStrategyFunction[{b,3,2}]},{},10],{a,$UniqueHaltingTM22},{b,$FSMUnique22}]],CountDistinct[#[[2]]]>1&]
Out[]=
{}
In[]:=
Select[Flatten[ParallelTable[{a,b}->IteratedGame[{TuringMachineStrategy[{a,2,2},200],FSMStrategyFunction[{b,3,2}]},{},10],{a,$UniqueHaltingTM22},{b,RandomSample[$FSMUnique32,10]}]],CountDistinct[#[[2]]]>1&]
Out[]=
{2447,2495}{{0,1},{0,1},{0,0},{0,1},{0,0},{0,1},{0,0},{0,1},{0,0},{0,1}}
In[]:=
Table[With[{game=IteratedGame[{TuringMachineStrategy[{2079,2,2}],FSMStrategyFunction[{1165,3,2}]},{},t]},Row[{OneSidedTuringMachinePlot[{2447,2,2},FromDigits[game[[All,2]],2],150,"LabelOutput"->False],FSMSequencePlot[{2495,3,2},game[[All,1]],"ShowMachine"->False,ImageSize->{50,Automatic}]}]],{t,1,7}]
Out[]=
,
,
,
,
,
,
In[]:=
SelectFlattenParallelTable{a,b}->IteratedGame[{TuringMachineStrategy[{a,2,2},200],FSMStrategyFunction[{b,3,2}]},{},10],a,RandomSample
,10,{b,RandomSample[$FSMUnique32,50]},CountDistinct[#[[2]]]>1&&CountDistinct[First/@#[[2]]]>1&&CountDistinct[Last/@#[[2]]]>1&
Out[]=
{}
In[]:=
RandomSample
,10
Out[]=
{4069,924,1659,247,3058,4010,925,690,3905,3610}
In[]:=
With[{a=924,b=1165},Table[With[{game=IteratedGame[{TuringMachineStrategy[{a,2,2}],FSMStrategyFunction[{b,3,2}]},{},t]},Row[{OneSidedTuringMachinePlot[{a,2,2},FromDigits[game[[All,2]],2],150,"LabelOutput"->False],FSMSequencePlot[{b,3,2},game[[All,1]],"ShowMachine"->False,ImageSize->{50,Automatic}]}]],{t,1,7}]]
Out[]=
,
,
,
,
,
,
