In[]:=
LaunchKernels["Local"]
Out[]=
KernelObject
Local
KernelID: 1
,KernelObject
Local
KernelID: 2
,KernelObject
Local
KernelID: 3
,KernelObject
Local
KernelID: 4
,KernelObject
Local
KernelID: 5
,KernelObject
Local
KernelID: 6
,KernelObject
Local
KernelID: 7
,KernelObject
Local
KernelID: 8
,KernelObject
Local
KernelID: 9
,KernelObject
Local
KernelID: 10
,KernelObject
Local
KernelID: 11
,KernelObject
Local
KernelID: 12
,KernelObject
Local
KernelID: 13
,KernelObject
Local
KernelID: 14
,KernelObject
Local
KernelID: 15
,KernelObject
Local
KernelID: 16
,KernelObject
Local
KernelID: 17
,KernelObject
Local
KernelID: 18
,KernelObject
Local
KernelID: 19
,KernelObject
Local
KernelID: 20
,KernelObject
Local
KernelID: 21
,KernelObject
Local
KernelID: 22
,KernelObject
Local
KernelID: 23
,KernelObject
Local
KernelID: 24

In[]:=
ParallelTableFirst/@SplitByModule{goal=35,deep=10000,cut=100,ru,life,evo},SeedRandom[422772+i];​​evo=NestListCompoundExpressionru=
[◼]
RandomRuleMutation
[First[#]],life=
[◼]
TestLifetime
[ru,cut],If[life!=-Infinity&&Abs[life-goal​​]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,3,1},1},deep,Last,{i,22}
Out[]=
In[]:=
Last/@%
Out[]=
{{{7194677830917,3,1},30},{{4393704222792,3,1},42},{{7158935779179,3,1},16},{{2688627320070,3,1},26},{{7289760068421,3,1},34},{{7256308571133,3,1},18},{{4192469773107,3,1},32},{{7308383350767,3,1},32},{{1599456298869,3,1},33},{{4370736491352,3,1},35},{{4323671702547,3,1},35},{{3012643188321,3,1},34},{{4466629270257,3,1},35},{{6838944045846,3,1},39},{{5551323019026,3,1},19},{{2154004468701,3,1},34},{{6577450091691,3,1},20},{{4644587426424,3,1},30},{{4294696417242,3,1},29},{{3224218902012,3,1},28},{{3575342072094,3,1},33},{{1528437829938,3,1},30}}
In[]:=
ParallelTableFirst/@SplitByModule{goal=40,deep=40000,cut=100,ru,life,evo},SeedRandom[421772+i];​​evo=NestListCompoundExpressionru=
[◼]
RandomRuleMutation
[First[#]],life=
[◼]
TestLifetime
[ru,cut],If[life!=-Infinity&&Abs[life-goal​​]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,3,1},1},deep,Last,{i,22}
Out[]=
In[]:=
Last/@%
Out[]=
{{{3316240006872,3,1},41},{{1528730648505,3,1},45},{{4135463003349,3,1},27},{{1398555125358,3,1},37},{{6839065115979,3,1},32},{{4872397757271,3,1},36},{{2361915473355,3,1},35},{{4166857689666,3,1},31},{{4286677740270,3,1},40},{{4056533844804,3,1},18},{{1315722682095,3,1},27},{{5583730591311,3,1},15},{{6898214066415,3,1},37},{{6243883134630,3,1},44},{{5266462739667,3,1},44},{{5317588472514,3,1},36},{{1585460445081,3,1},34},{{5431315619769,3,1},36},{{4562209283595,3,1},48},{{4918866893352,3,1},29},{{1141598406831,3,1},30},{{4984051140960,3,1},22}}
In[]:=
LaunchKernels[]
In[]:=
ParallelTableFirst/@SplitByModule{goal=40,deep=40000,cut=100,ru,life,evo},SeedRandom[221772+i];​​evo=NestListCompoundExpressionru=
[◼]
RandomRuleMutation
[First[#]],life=
[◼]
TestLifetime
[ru,cut],If[life!=-Infinity&&Abs[life-goal​​]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,3,1},1},deep,Last,{i,190}
Out[]=
{{{{0,3,1},1},{{4815466851321,3,1},2},{{3208059124233,3,1},5},{{2644203825303,3,1},6},{{4370171670222,3,1},7},{{1567959214236,3,1},8},{{2413010988348,3,1},9},{{2318867809521,3,1},10},{{2318953371522,3,1},12},{{1471493874273,3,1},13},{{2318909911458,3,1},15},{{2318908373997,3,1},39}},{{{0,3,1},1},{{4550504170797,3,1},2},{{4655035794807,3,1},7},{{7134053469045,3,1},10},{{6293865915195,3,1},11},{{6293995586799,3,1},12},{{1211429557401,3,1},14},{{2058718160283,3,1},18},{{2027337100674,3,1},36}},
⋯187⋯
,{{{0,3,1},1},{{6,3,1},2},{{2459604065598,3,1},3},{{1323832095990,3,1},4},{{1139032524924,3,1},7},{{6378527832822,3,1},8},{{2236308861564,3,1},11},{{2225977648524,3,1},19},{{2037692708046,3,1},27},{{2037689401302,3,1},28},{{2037689578449,3,1},43},{{2037606673653,3,1},38}}}
Full expression not available
(
original memory size:
1.1 MB)
ParallelTableFirst/@SplitByModule{goal=40,deep=40000,cut=100,ru,life,evo},SeedRandom[221772+i];​​evo=NestListCompoundExpressionru=
[◼]
RandomRuleMutation
[First[#]],life=
[◼]
TestLifetime
[ru,cut],If[life!=-Infinity&&Abs[life-goal​​]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,3,1},1},deep,Last,{i,{27,53,111,131,144}}
In[]:=
Position[%,{__,{{__},40}}]
Out[]=
{{10},{27},{53},{71},{111},{112},{131},{143},{144},{163}}
In[]:=
221772+Flatten[%]
Out[]=
{221782,221799,221825,221843,221883,221884,221903,221915,221916,221935}
In[]:=
%1[[Flatten[%2],-1,1]]
Out[]=
{{2236335553284,3,1},{2536410631077,3,1},{6446186248338,3,1},{4147182499605,3,1},{3282568086471,3,1},{2874436130346,3,1},{6627863316246,3,1},{2775499274778,3,1},{4735266018360,3,1},{6472797496314,3,1}}
In[]:=
With{ru=#},GraphicsRow​​RulePlotCellularAutomaton[ru],ColorRules->
[◼]
CustomStyleData
["Colors"],​​MeshStyle->Opacity[.2],ImageSize->280,ArrayPlotCellularAutomaton[ru,CenterArray[{1},30],43],​​ColorRules->
[◼]
CustomStyleData
["Colors"],​​Mesh->True,MeshStyle->Opacity[.1],ImageSize->{165,Automatic},Spacings40&/@%4
Out[]=

,
,
,
,
,
,
,
,
,
