In[]:=
Module{goal=200,deep=5000,cut=500,ru,life,evo,data,res},res=ParallelTableCompoundExpressionSeedRandom[745346+i],evo=NestListCompoundExpressionru=[First[#],5],life=[ru,cut],If[life!=-Infinity&&Abs[life-goal]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,4,1},0},deep//Last,{i,10}
Out[]=
{{{245714676811484964747119012264071973448,4,1},196},{{127797680077215240449826715952376778624,4,1},201},{{229537040893032308079868571729826849392,4,1},213},{{28253366042373598794155201076448998280,4,1},128},{{6787385793780590906562178969050322824,4,1},223},{{274568791325992870471978533279072719388,4,1},194},{{202189638250377400106154333595083248140,4,1},164},{{144831630697089894478217929826319230600,4,1},200},{{310022159018229239386194066375117450508,4,1},202},{{328225880912908535768891490783332671880,4,1},222}}
In[]:=
ArrayPlotCellularAutomaton[First[#],{{1},0},220],ColorRules->["Colors"]&/@
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Module{goal=150,deep=5000,cut=500,ru,life,evo,data,res},res=ParallelTableCompoundExpressionSeedRandom[745346+i],evo=NestListCompoundExpressionru=[First[#],5],life=[ru,cut],If[life!=-Infinity&&Abs[life-goal]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,4,1},0},deep//Last,{i,10}
Out[]=
{{{210521208462272730085428317723288614000,4,1},152},{{281440897454741563591628317839808542988,4,1},165},{{78343381192834565046390837129414988556,4,1},155},{{306855422232759442446785052550112201992,4,1},118},{{307464411214861655464676203228295710780,4,1},150},{{262845126172924875444197532014450770064,4,1},154},{{304591257812621898652894908809017855628,4,1},151},{{311621021118075430945715572327069265480,4,1},137},{{124020539179517002412515140766271541004,4,1},156},{{249788815439393019165290411200682794896,4,1},155}}
In[]:=
ArrayPlotCellularAutomaton[First[#],{{1},0},170],ColorRules->["Colors"]&/@%
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Module{goal=150,deep=10000,cut=200,ru,life,evo,data,res},res=ParallelTableCompoundExpressionSeedRandom[745346+i],evo=NestListCompoundExpressionru=[First[#],5],life=[ru,cut],If[life!=-Infinity&&Abs[life-goal]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,4,1},0},deep//Last,{i,20}
Out[]=
{{{210521208462272730085428317723288614000,4,1},152},{{26229120996386888947008673445846202636,4,1},135},{{78260304443136693131955488366053053196,4,1},147},{{306855417162175781063510172357586640136,4,1},129},{{307464411214861655464676203228295710780,4,1},150},{{262845126172924875444197532014450770064,4,1},154},{{304591257812621898652894908809017855628,4,1},151},{{71778755145719274914045974564603962952,4,1},149},{{166555754004127503009404021887538827020,4,1},155},{{249788815439394226910518404837585330064,4,1},150},{{106288181790610439891818983955708814136,4,1},150},{{157684795794797059949476807949422182664,4,1},149},{{324810175637250300073235883011593750024,4,1},151},{{116094029922102381506441148848608955020,4,1},155},{{34252241437384139796935573227131424652,4,1},149},{{27456937801712160664705319631477649936,4,1},141},{{322787638265994078897015293383690115632,4,1},125},{{42274023607665270532310782051875138444,4,1},148},{{236388582151693661185414105154270901276,4,1},149},{{292993952785736797117821091559369859208,4,1},155}}
In[]:=
Module{goal=150,deep=20000,cut=200,ru,life,evo,data,res},res=ParallelTableCompoundExpressionSeedRandom[745346+i],evo=NestListCompoundExpressionru=[First[#],5],life=[ru,cut],If[life!=-Infinity&&Abs[life-goal]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,4,1},0},deep//Last,{i,20}
Out[]=
{{{210521208464748685708099522251189335152,4,1},149},{{25564510801136746687441239839849067788,4,1},147},{{78260304759971915268159708243463528204,4,1},150},{{306798312034242205362255700224702468408,4,1},151},{{307464411214861655464676203228295710780,4,1},150},{{262845126172924875444197532014450770064,4,1},154},{{304591257812621898652894908809017855628,4,1},151},{{71841052564341010941182367997139101320,4,1},149},{{166555754004127805240858927743786561292,4,1},145},{{249788815439394226910518404837585330064,4,1},150},{{337672674606894307427859752943817918216,4,1},144},{{322284848596721133409409641292810689800,4,1},151},{{14750024821320882550266122765482239516,4,1},150},{{95302642433047010904641701678161160208,4,1},149},{{102393202954497343875597624766556647308,4,1},146},{{240751403770366403846515249383371208764,4,1},151},{{178033528923704206203396870577975341576,4,1},139},{{183895857433138869158737921741193768768,4,1},151},{{334895217274335596043914845895405379848,4,1},121},{{128164565690534730379793106014601699856,4,1},149}}
In[]:=
Cases[%,{_,150}]
Out[]=
{{{78260304759971915268159708243463528204,4,1},150},{{307464411214861655464676203228295710780,4,1},150},{{249788815439394226910518404837585330064,4,1},150},{{14750024821320882550266122765482239516,4,1},150}}