In[]:=
Table[Module[{deep=100,cut=1000,ru,life,evo,data,area},SeedRandom[42342+i];evo=Nest[CompoundExpression[ru=RandomRuleMutation[First[#],1,"Symmetric"->True],area=CAMaxSpecificColoredArea[{1},ru,{1},cut],If[area!=-Infinity&&area>=Last[#],{ru,area},#]]&,{{0,4,1},0},deep]],{i,1}]
In[]:=
Table[Module[{deep=100,cut=1000,ru,life,evo,data,area},SeedRandom[42342+i];evo=Nest[CompoundExpression[ru=RandomRuleMutation[First[#],1,"Symmetric"->True],area=CAMaxSpecificColoredArea[{1},ru,{1},cut],If[area!=-Infinity&&area>=Last[#],{ru,area},#]]&,{{111114,4,1},0},deep]],{i,1}]
Out[]=
$Aborted
In[]:=
ArrayPlot[CellularAutomaton[{266060474817703721121549237196460762112,4,1},{{1},0},10]]
Out[]=
In[]:=
CAMaxSpecificColoredArea[{1},{174386931652561539113501081837662630200,4,1},{1},300]
»
{301,601}
Out[]=
227
In[]:=
CAMaxSpecificColoredArea[{1},{0,4,1},{1},300]
»
{301,601}
Out[]=
1
{{{174386931652561539113501081837662630200,4,1},143},{{263124931317532695530009267864086920764,4,1},145},{{152330943506419112740169360415203583944,4,1},147},{{140077716886775857572628778486600645944,4,1},149},{{160069498912288763133774917260499087900,4,1},150},{{227326583302061598704395739801478853404,4,1},153}}
In[]:=
CAMaxSpecificColoredArea[colors_:{1},rule_,init_List:{1},max_Integer:100]:=With[{array=CellularAutomaton[rule,{init,0},{max,All}]},If[LengthWhile[Reverse[array],Total[#]==0&]==0,-Infinity,ComponentMeasurements[MorphologicalComponents[#,CornerNeighbors->False],"Count",CornerNeighbors->False][[All,2]]&/@ComponentMeasurements[ArrayComponents[array]+1,"Mask"][[colors+1,2]]//Max]]
In[]:=
CellularAutomaton[{174386931652561539113501081837662630200,4,1},{{1},0},300];
In[]:=
LengthWhile[Reverse[%],Total[#]==0&]
Out[]=
96
With[{i=1},[Module[{deep=1000,cut=1000,ru,life,evo,data,area},SeedRandom[42342+i];evo=Nest[CompoundExpression[ru=RandomRuleMutation[First[#],1,"Symmetric"->True],area=CAMaxSpecificColoredArea[{1},ru,{1},cut],If[area!=-Infinity&&area>=Last[#],{ru,area},#]]&,{{0,4,1},0},deep]]]]