In[]:=
randomrulemutation=
[◼]
RandomRuleMutation
;
In[]:=
ParallelTable[Module[{ru,ca,lt,pcas,fitness},​​SeedRandom[826778+i];​​NestList[CompoundExpression[​​ru=randomrulemutation[First[#]],​​ca=CellularAutomaton[ru,{{1},0},{200,All}];​​lt=TestCALifeTime[ca];​​If[lt==-Infinity,#,​​(*pcas=Table[PerturbCA[{ca,ru}],Ceiling[lt/20]];*)​​pcas=Table[PerturbCA[{ca,ru},"Random"->1],Ceiling[lt/20]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]​​]]&,{{0,4,1},0},2000]​​]//Last,{i,200}]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"]PlotCA[First[#],"steps"->140,"init"->{{1},0}]->First[#]&/@Select
,#[[2]]>100&
Out[]=

Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add

Clear
Copy
{{129394083852257874070100539595535549840,4,1},{144729370602329288854627065187434439480,4,1},{109151113611824779467688877590036116024,4,1},{319179722551268932850712554882090884748,4,1}}
In[]:=
PlotCA[#]->GraphicsRow[Table[PlotCA@PerturbCA[{getca[#,300],#},"NRandom"->1],10]]&/@{{129394083852257874070100539595535549840,4,1},{144729370602329288854627065187434439480,4,1},{109151113611824779467688877590036116024,4,1},{319179722551268932850712554882090884748,4,1}}
Out[]=


,

,

,

