In[]:=
ParallelTable[Module[{​​deep=5000,cut=1000,​​ru,life,evo,all,data,res},​​(SeedRandom[i];​​evo=NestList[CompoundExpression[​​ru=RandomRuleMutation[First[#]],​​life=TestLifetime[ru,cut],​​If[life>=Last[#],{ru,life},#]​​]&,{{0,3,1},1},deep];​​evo=First/@SplitBy[evo,Last];​​evo)],{i,1000,1100}]
Out[]=
In[]:=
Map[CompoundExpression[​​data=CellularAutomaton[First[#],{{1},0},Last[#]+4],​​data=ArrayPad[#,2]&/@data,ArrayPlot[data,​​ColorRules->colors,FrameStyle->GrayLevel[.65],​​ImageSize->{Automatic,20Sqrt[Length[data]+1]}​​]]&,#]&/@%
Out[]=
In[]:=
{{0,1},{54,1},{1699400088108,2},{4670237948820,5},{2722323165603,6},{4463167165719,11},{4464329427186,17},{4464458626398,29},{2906889909000,38},{2905727647290,67},{2602407332391,121},{3606720814104,134},{2759432204661,244},{4359737104557,444},{4359737106744,723}}//Length
Out[]=
15
In[]:=
Length/@%119
Out[]=
{9,6,9,12,14,11,12,11,14,5,11,10,13,12,11,16,13,9,12,15,9,9,10,9,8,11,7,12,8,8,8,9,9,16,7,8,15,13,5,12,8,9,9,14,11,14,7,12,7,13,10,13,12,10,12,11,14,9,8,10,5,10,10,13,13,11,11,10,10,9,9,10,10,10,8,12,14,12,8,11,10,10,9,10,13,11,9,9,9,14,11,17,10,10,10,10,11,9,12,12,10}
In[]:=
{Length[#],Last[Last[#]]}&/@%119
Out[]=
{{9,46},{6,63},{9,28},{12,35},{14,67},{11,27},{12,68},{11,34},{14,44},{5,47},{11,74},{10,55},{13,42},{12,19},{11,43},{16,59},{13,190},{9,23},{12,55},{15,34},{9,30},{9,30},{10,36},{9,39},{8,274},{11,44},{7,51},{12,134},{8,58},{8,33},{8,35},{9,30},{9,43},{16,22},{7,36},{8,23},{15,76},{13,56},{5,21},{12,119},{8,23},{9,28},{9,30},{14,32},{11,237},{14,108},{7,18},{12,415},{7,94},{13,42},{10,60},{13,45},{12,206},{10,46},{12,50},{11,31},{14,132},{9,45},{8,59},{10,28},{5,36},{10,34},{10,70},{13,189},{13,36},{11,35},{11,22},{10,46},{10,56},{9,30},{9,43},{10,42},{10,39},{10,49},{8,37},{12,134},{14,28},{12,37},{8,39},{11,98},{10,30},{10,53},{9,14},{10,19},{13,31},{11,42},{9,38},{9,46},{9,21},{14,39},{11,57},{17,60},{10,51},{10,33},{10,133},{10,22},{11,47},{9,61},{12,67},{12,29},{10,24}}
​
In[]:=
ParallelTable[Module[{​​deep=5000,cut=1000,​​ru,life,evo,all,data,res},​​(SeedRandom[i];​​evo=NestList[CompoundExpression[​​ru=RandomRuleMutation[First[#]],​​life=TestLifetime[ru,cut],​​If[life>=Last[#],{ru,life},#]​​]&,{{0,3,1},1},deep];​​evo=First/@SplitBy[evo,Last];​​evo)],{i,2000,2150}]
Out[]=
{{{{0,3,1},1},{{1663255149606,3,1},2},{{3169608705405,3,1},3},{{4909433939442,3,1},4},{{7115433307299,3,1},5},{{6385805317539,3,1},7},{{6319516142502,3,1},8},{{6288176480541,3,1},20},{{6288176480703,3,1},23}},{{{0,3,1},1},{{1324978136838,3,1},3},{{746447758002,3,1},4},{{6081527727045,3,1},5},{{4298444862255,3,1},6},{{5518003220775,3,1},8},{{5518003233897,3,1},48},{{5518008016866,3,1},296}},{{{0,3,1},1},{{6016181681169,3,1},2},{{6099584002179,3,1},3},{{5272271203362,3,1},4},{{5839454270004,3,1},5},{{7616552053047,3,1},12},{{5859170199663,3,1},16},{{5677810644003,3,1},22},{{5771954885712,3,1},24},{{5771957542917,3,1},25},{{5771957543079,3,1},29},{{5772043105080,3,1},65}},
⋯146⋯
,{{{0,3,1},1},{{5139024564159,3,1},3},{{4752075938634,3,1},4},{{6172023153645,3,1},5},{{1408107674061,3,1},6},{{7082287583805,3,1},8},{{7114816557918,3,1},10},{{7215933307977,3,1},13},{{7215890261256,3,1},21},{{7114773513627,3,1},54}},{{{0,3,1},1},{{492,3,1},2},{{94191013410,3,1},3},{{96515575710,3,1},4},{{156983639091,3,1},5},{{167429642901,3,1},6},{{1770403505271,3,1},10},{{1770403511832,3,1},11},{{5158395688137,3,1},14},{{5441944616997,3,1},20},{{5441944616916,3,1},30}}}
Full expression not available
(
original memory size:
326.8 kB)
In[]:=
{Length[#],Last[Last[#]]}&/@%
Out[]=
{{9,23},{8,296},{12,65},{17,47},{13,41},{12,35},{8,36},{9,62},{14,197},{9,28},{11,20},{12,37},{12,48},{13,40},{11,47},{5,40},{12,42},{14,199},{7,50},{11,16},{10,31},{11,23},{12,59},{10,42},{12,46},{8,778},{12,39},{10,52},{14,57},{12,28},{10,23},{10,25},{10,23},{9,26},{11,39},{6,27},{15,82},{12,28},{12,49},{15,56},{13,41},{14,107},{17,144},{11,21},{13,87},{10,17},{16,94},{11,73},{7,20},{8,86},{10,39},{11,46},{13,69},{13,22},{10,78},{4,24},{11,293},{11,37},{12,39},{13,29},{13,47},{10,36},{13,32},{9,33},{6,23},{10,70},{16,38},{13,43},{15,52},{11,36},{9,48},{14,35},{7,29},{9,20},{15,42},{9,24},{11,130},{12,106},{14,62},{12,48},{11,237},{11,29},{16,29},{9,42},{13,41},{10,50},{10,55},{7,40},{10,49},{11,38},{9,27},{13,32},{12,41},{8,25},{10,41},{11,45},{9,38},{10,15},{13,24},{11,36},{9,28},{12,40},{12,82},{12,39},{9,324},{13,192},{6,20},{12,91},{6,42},{14,699},{14,102},{7,23},{10,92},{6,36},{15,40},{11,24},{8,33},{9,23},{13,25},{12,25},{8,185},{12,48},{18,156},{8,136},{12,92},{14,43},{11,30},{14,60},{8,21},{8,26},{11,30},{8,23},{9,31},{13,47},{12,48},{13,32},{10,51},{11,70},{10,162},{12,20},{10,83},{9,36},{9,35},{11,56},{13,35},{9,32},{12,44},{13,17},{15,90},{10,54},{11,30}}
In[]:=
TakeLargestBy[%,Last,10]
Out[]=
{{8,778},{14,699},{9,324},{8,296},{11,293},{11,237},{14,199},{14,197},{13,192},{8,185}}
In[]:=
Select[%125,Length[#]==14&]
Out[]=
In[]:=
Map[CompoundExpression[​​data=CellularAutomaton[First[#],{{1},0},Last[#]+4],​​data=ArrayPad[#,2]&/@data,ArrayPlot[data,​​ColorRules->colors,FrameStyle->GrayLevel[.65],​​ImageSize->{Automatic,20Sqrt[Length[data]+1]}​​]]&,#]&/@%128
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
