Wolfram Cloud Page

WOLFRAM NOTEBOOK

In[]:=

TestCALifeTime[ca_List]:=If[#==0,-Infinity,Length[ca]-#]&[LengthWhile[Reverse[ca],Total[Flatten@#]==0&]]

Buggy case


More correct adaptive evolution

In[]:=

ParallelSelect[Range[200],(SeedRandom[#];With[{max=200},NestList[Module[{u=MapAt[1-#&,#[[1]],Table[RandomInteger[{1,#}]&/@Dimensions[#[[1]]],10]],lt},lt=TestCALifeTime[CellularAutomaton["GameOfLife",u,max]];If[lt>0&&lt>=#[[2]],{u,lt},#]]&,{CenterArray[RandomInteger[1,{10,10}],{30,30}],0},50]][[-1,-1]]>0)&]

Out[]=

{2,3,5,6,10,11,13,14,16,17,19,22,24,27,28,29,30,31,32,34,35,36,37,38,39,40,41,42,44,45,46,47,48,49,51,52,53,55,56,57,58,61,62,63,65,66,68,69,72,73,74,75,76,79,80,81,82,84,86,87,88,91,92,94,95,96,97,98,99,105,106,107,108,110,111,115,116,117,118,119,120,121,122,123,125,126,127,129,130,131,132,133,134,139,140,141,142,143,144,146,147,148,150,151,154,156,157,159,161,162,163,164,165,167,168,169,171,173,174,176,177,180,181,183,184,186,187,188,189,190,192,194,195,196,197,198,199,200}

In[]:=

ParallelTable[(SeedRandom[34535+i];Last/@With[{max=200},NestList[Module[{u=MapAt[1-#&,#[[1]],Table[RandomInteger[{1,#}]&/@Dimensions[#[[1]]],10]],lt},lt=TestCALifeTime[CellularAutomaton["GameOfLife",u,max]];If[lt>0&&lt>=#[[2]],{u,lt},#]]&,{CenterArray[RandomInteger[1,{10,10}],{30,30}],0},50]]),{i,50}]

Out[]=

In[]:=

ListLinePlot[#,PlotTheme->"Minimal"]&/@%

Out[]=





In[]:=

ParallelTable[(SeedRandom[34535+i];Labeled[Column[{ArrayPlot[#[[1,1]],ImageSize->50],CellularAutomatonSpacetimePlot["GameOfLife",#[[1,1]],200,Mesh->False]}],#[[1,2]]]&/@SplitBy[With[{max=200},NestList[Module[{u=MapAt[1-#&,#[[1]],Table[RandomInteger[{1,#}]&/@Dimensions[#[[1]]],10]],lt},lt=TestCALifeTime[CellularAutomaton["GameOfLife",u,max]];If[lt>0&&lt>=#[[2]],{u,lt},#]]&,{CenterArray[RandomInteger[1,{10,10}],{30,30}],0},50]],Last]),{i,50}]

Out[]=

