Note: a pure-width fitness function
Note: a pure-width fitness function
2000 steps may not be enough
In[]:=
ParallelTable[i->ResourceFunction["AdaptiveCellularAutomaton"][<|"MutationFunction"->{2,"Symmetric"->True},"InitialRule"->{0,5,1},"AdaptiveIterations"->10000,"MaxSteps"->2000,"FitnessFunction":>(If[TestCALifetime[#]==-Infinity,-Infinity,Times@@Dimensions[#]]&[CellularAutomaton[#1,{{1},0},2000]]&)|>,"BreakthroughStates","Plot","PlottingRegion"->"Lifetime","PlotLabels"->({#Fitness,#Index}&),RandomSeeding->2326+i],{i,150}]
Out[]=
ParallelTable[i->ResourceFunction["AdaptiveCellularAutomaton"][<|"MutationFunction"->{2,"Symmetric"->True},"InitialRule"->{0,5,1},"AdaptiveIterations"->10000,"MaxSteps"->5000,"FitnessFunction":>(If[TestCALifetime[#]==-Infinity,-Infinity,Times@@Dimensions[#]]&[CellularAutomaton[#1,{{1},0},2000]]&)|>,"RuleChanges",RandomSeeding->2326+i],{i,150}]
