In[]:=
Module[​​{deep=5000,cut=200,ru,life,evo,data},​​SeedRandom[426778];​​evo=NestList[CompoundExpression[​​ru=RandomRuleMutation[First[#]],​​life=TestLifetime[ru,cut],​​If[life>=Last[#],{ru,life},#]​​]&,{{0,2,2},0},deep];​​evo=Rest[First/@SplitBy[evo,Last]];​​Map[CompoundExpression[​​data=CellularAutomaton[​​First[#],{{1},0},Last[#]+2],​​data=ArrayPad[#,2]&/@data,​​ArrayPlot[data,ColorRules->colors,​​ImageSize->{Automatic,26Sqrt[Length[data]+1]},​​Mesh->True,MeshStyle->Opacity[.1]​​]​​]&,​​evo]​​]
Out[]=


In[]:=
FromDigits[Most[IdentityMatrix[32]],2]
Out[]=
{1073741824,536870912,268435456,134217728,67108864,33554432,16777216,8388608,4194304,2097152,1048576,524288,262144,131072,65536,32768,16384,8192,4096,2048,1024,512,256,128,64,32,16,8,4,2,1,0}
In[]:=
RuleMutationsList[{0,2,2}]
Out[]=
{{2147483648,2,2},{1073741824,2,2},{536870912,2,2},{268435456,2,2},{134217728,2,2},{67108864,2,2},{33554432,2,2},{16777216,2,2},{8388608,2,2},{4194304,2,2},{2097152,2,2},{1048576,2,2},{524288,2,2},{262144,2,2},{131072,2,2},{65536,2,2},{32768,2,2},{16384,2,2},{8192,2,2},{4096,2,2},{2048,2,2},{1024,2,2},{512,2,2},{256,2,2},{128,2,2},{64,2,2},{32,2,2},{16,2,2},{8,2,2},{4,2,2},{2,2,2}}
In[]:=
TestLifetime[#,10]&/@%
Out[]=
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-∞,1,1,1,1,1,1,1,-∞,1,1,1,-∞,1,-∞,-∞}
In[]:=
Counts@Nest[Union[Catenate[​​ParallelMap[IterateMutations[1,GreaterEqual][#,{1},100]&,#]]]&,{{{0,2,2},1}},5][[All,2]]
In[]:=
Nest[Union[Catenate[​​ParallelMap[IterateMutations[1,GreaterEqual][#,{1},100]&,#]]]&,{{{0,2,2},1}},1]
Out[]=
{{{8,2,2},1},{{32,2,2},1},{{64,2,2},1},{{128,2,2},1},{{512,2,2},1},{{1024,2,2},1},{{2048,2,2},1},{{4096,2,2},1},{{8192,2,2},1},{{16384,2,2},1},{{32768,2,2},1},{{131072,2,2},1},{{262144,2,2},1},{{524288,2,2},1},{{1048576,2,2},1},{{2097152,2,2},1},{{4194304,2,2},1},{{8388608,2,2},1},{{16777216,2,2},1},{{33554432,2,2},1},{{67108864,2,2},1},{{134217728,2,2},1},{{268435456,2,2},1},{{536870912,2,2},1},{{1073741824,2,2},1},{{2147483648,2,2},1}}
In[]:=
NestList[Union[Catenate[​​ParallelMap[IterateMutations[1,GreaterEqual][#,{1},100]&,#]]]&,{{{0,2,2},1}},4]
Out[]=
{{{{0,2,2},1}},{
⋯1⋯
},{
⋯1⋯
},{
⋯1⋯
},{{{0,2,2},1},{{40,2,2},1},{{72,2,2},1},{{96,2,2},1},{{136,2,2},1},{{160,2,2},1},{{192,2,2},1},{{232,2,2},1},{{520,2,2},1},{{544,2,2},1},{{576,2,2},1},{{616,2,2},1},{{640,2,2},1},{{680,2,2},1},{{712,2,2},1},{{736,2,2},1},{{1032,2,2},1},{{1056,2,2},1},{{1088,2,2},1},{{1128,2,2},1},{{1152,2,2},1},{{1192,2,2},1},{{1224,2,2},1},{{1248,2,2},1},{{1536,2,2},1},{{1576,2,2},1},{{1608,2,2},1},{{1632,2,2},1},{{1672,2,2},1},{{1696,2,2},1},{{1728,2,2},1},{{2056,2,2},1},{{2080,2,2},1},
⋯15210⋯
,{{3489923072,2,2},1},{{3490185216,2,2},1},{{3490709504,2,2},1},{{3491758080,2,2},1},{{3493855232,2,2},1},{{3498049536,2,2},1},{{3506438144,2,2},1},{{3523215360,2,2},1},{{3556769792,2,2},1},{{3623878656,2,2},1},{{3758096392,2,2},1},{{3758096416,2,2},1},{{3758096448,2,2},1},{{3758096512,2,2},1},{{3758096896,2,2},1},{{3758097408,2,2},1},{{3758098432,2,2},1},{{3758100480,2,2},1},{{3758104576,2,2},1},{{3758112768,2,2},1},{{3758129152,2,2},1},{{3758227456,2,2},1},{{3758358528,2,2},1},{{3758620672,2,2},1},{{3759144960,2,2},1},{{3760193536,2,2},1},{{3762290688,2,2},1},{{3766484992,2,2},1},{{3774873600,2,2},1},{{3791650816,2,2},1},{{3825205248,2,2},1},{{3892314112,2,2},1},{{4026531840,2,2},1}}}
Full expression not available
(
original memory size:
3.5 MB)
In[]:=
Length/@%
Out[]=
{1,26,326,2626,15276}
In[]:=
NestList[Union[#,Catenate[​​ParallelMap[IterateMutations[1,GreaterEqual][#,{1},100]&,#]]]&,{{{0,2,2},1}},4]
Out[]=
{{{{0,2,2},1}},{
⋯1⋯
},{
⋯1⋯
},{
⋯1⋯
},{{{0,2,2},1},{{8,2,2},1},{{32,2,2},1},{{40,2,2},1},{{64,2,2},1},{{72,2,2},1},{{96,2,2},1},{{104,2,2},1},{{128,2,2},1},{{136,2,2},1},{{160,2,2},1},{{168,2,2},1},{{192,2,2},1},{{200,2,2},1},{{224,2,2},1},{{232,2,2},1},{{512,2,2},1},{{520,2,2},1},{{544,2,2},1},{{552,2,2},1},{{576,2,2},1},{{584,2,2},1},{{608,2,2},1},{{616,2,2},1},{{640,2,2},1},{{648,2,2},1},{{672,2,2},1},{{680,2,2},1},{{704,2,2},1},{{712,2,2},1},{{736,2,2},1},{{1024,2,2},1},{{1032,2,2},1},{{1056,2,2},1},
⋯17835⋯
,{{3490185216,2,2},1},{{3490709504,2,2},1},{{3491758080,2,2},1},{{3493855232,2,2},1},{{3498049536,2,2},1},{{3506438144,2,2},1},{{3523215360,2,2},1},{{3556769792,2,2},1},{{3623878656,2,2},1},{{3758096384,2,2},1},{{3758096392,2,2},1},{{3758096416,2,2},1},{{3758096448,2,2},1},{{3758096512,2,2},1},{{3758096896,2,2},1},{{3758097408,2,2},1},{{3758098432,2,2},1},{{3758100480,2,2},1},{{3758104576,2,2},1},{{3758112768,2,2},1},{{3758129152,2,2},1},{{3758227456,2,2},1},{{3758358528,2,2},1},{{3758620672,2,2},1},{{3759144960,2,2},1},{{3760193536,2,2},1},{{3762290688,2,2},1},{{3766484992,2,2},1},{{3774873600,2,2},1},{{3791650816,2,2},1},{{3825205248,2,2},1},{{3892314112,2,2},1},{{4026531840,2,2},1}}}
Full expression not available
(
original memory size:
4.1 MB)
In[]:=
Length/@%
Out[]=
{1,27,352,2952,17902}
In[]:=
Nest[Union[#,Catenate[​​ParallelMap[IterateMutations[1,GreaterEqual][#,{1},100]&,#]]]&,{{{0,2,2},1}},4]
Out[]=
{{{0,2,2},1},{{8,2,2},1},{{32,2,2},1},{{40,2,2},1},{{64,2,2},1},{{72,2,2},1},{{96,2,2},1},{{104,2,2},1},{{128,2,2},1},{{136,2,2},1},{{160,2,2},1},{{168,2,2},1},{{192,2,2},1},{{200,2,2},1},{{224,2,2},1},{{232,2,2},1},{{512,2,2},1},{{520,2,2},1},{{544,2,2},1},{{552,2,2},1},{{576,2,2},1},{{584,2,2},1},{{608,2,2},1},{{616,2,2},1},{{640,2,2},1},{{648,2,2},1},{{672,2,2},1},{{680,2,2},1},{{704,2,2},1},{{712,2,2},1},{{736,2,2},1},{{1024,2,2},1},{{1032,2,2},1},{{1056,2,2},1},{{1064,2,2},1},
⋯17833⋯
,{{3489923072,2,2},1},{{3490185216,2,2},1},{{3490709504,2,2},1},{{3491758080,2,2},1},{{3493855232,2,2},1},{{3498049536,2,2},1},{{3506438144,2,2},1},{{3523215360,2,2},1},{{3556769792,2,2},1},{{3623878656,2,2},1},{{3758096384,2,2},1},{{3758096392,2,2},1},{{3758096416,2,2},1},{{3758096448,2,2},1},{{3758096512,2,2},1},{{3758096896,2,2},1},{{3758097408,2,2},1},{{3758098432,2,2},1},{{3758100480,2,2},1},{{3758104576,2,2},1},{{3758112768,2,2},1},{{3758129152,2,2},1},{{3758227456,2,2},1},{{3758358528,2,2},1},{{3758620672,2,2},1},{{3759144960,2,2},1},{{3760193536,2,2},1},{{3762290688,2,2},1},{{3766484992,2,2},1},{{3774873600,2,2},1},{{3791650816,2,2},1},{{3825205248,2,2},1},{{3892314112,2,2},1},{{4026531840,2,2},1}}
Full expression not available
(
original memory size:
3.4 MB)
In[]:=
Counts[%[[All,2]]]
Out[]=
117902
In[]:=
Module[​​{deep=5000,cut=200,ru,life,evo,data},​​SeedRandom[426778];​​evo=NestList[CompoundExpression[​​ru=RandomRuleMutation[First[#]],​​life=TestLifetime[ru,cut],​​If[life>=Last[#],{ru,life},#]​​]&,{{272,2,2},0},deep];​​evo=Rest[First/@SplitBy[evo,Last]];​​Map[CompoundExpression[​​data=CellularAutomaton[​​First[#],{{1},0},Last[#]+2],​​data=ArrayPad[#,2]&/@data,​​ArrayPlot[data,ColorRules->colors,​​ImageSize->{Automatic,26Sqrt[Length[data]+1]},​​Mesh->True,MeshStyle->Opacity[.1]​​]​​]&,​​evo]​​]

Evolutionary Jumps

Backtracking

Reflecting