In[]:=
TestCALifetime[ca_List]:=If[Total[Last[ca]]==0,Length[ca]-LengthWhile[Reverse[ca],Total[#]==0&],-Infinity]
In[]:=
GoFurtherTotal[{initrule_,steps_,iterations_,seed_}]:={ResourceFunction["AdaptiveCellularAutomaton"][<|"MutationFunction"->{2,"Symmetric"->True},"InitialRule"->initrule,"AdaptiveIterations"->iterations,"MaxSteps"->steps,"FitnessFunction":>(With[{ca=CellularAutomaton[#1,{{1},0},steps]},{life=TestCALifetime[ca]},If[life==-Infinity,-Infinity,Count[Sign[Take[ca,life]],1,{2}]]]&)|>,"BreakthroughStates",{"BestRule","BestFitness","Index"},RandomSeeding->seed],steps,iterations,seed}
In[]:=
ParallelMapExport["/Users/sw/Dropbox/Events/2026/CIMC/CAPix/"<>ToString[RandomInteger[10^6]]<>".tif",#]&@ArrayPlot[CellularAutomaton[#BestRule,{{1},0},TestCALifetime[CellularAutomaton[#BestRule,{{1},0},32×200+5]]+50],ColorRules->{0->White,1->Red,2->Yellow,3->Blue,4->Green},ImageSize->{Automatic,1000}]&,Last/@
In[]:=
ParallelMapArrayPlot[CellularAutomaton[#BestRule,{{1},0},TestCALifetime[CellularAutomaton[#BestRule,{{1},0},32×200+5]]+50],ColorRules->{0->White,1->Red,2->Yellow,3->Blue,4->Green},ImageSize->{Automatic,1000}]&,Last/@
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
