You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
RemoteBatchMapSubmitFunctioni,Module{goal=100,deep=100000,cut=200,ru,life,evo,data,res},res=CompoundExpressionSeedRandom[745346+i],evo=NestListCompoundExpressionru=[First[#],5],life=[ru,cut],If[life!=-Infinity&&Abs[life-goal]<=Abs[Last[#]-goal],{ru,life},#]&,{{0,3,1},0},deep//Last,Range[1000]
Out[]=
RemoteBatchJobObject
In[]:=
job=;
In[]:=
job["DynamicStatusVisualization"]
Out[]=
In[]:=
job["CompletionPercentage"]
Out[]=
In[]:=
job["ChildJobCount"]
Out[]=
32
In[]:=
job["EvaluationResults"]
Out[]=
In[]:=
Cases[%,{_,100}]
Out[]=
{{{4745882208516,3,1},100},{{1734633941586,3,1},100},{{6061700435100,3,1},100},{{4624952264325,3,1},100},{{1504202530038,3,1},100},{{3082344214740,3,1},100},{{879310482873,3,1},100},{{1563527276232,3,1},100},{{510468503388,3,1},100},{{6741346723431,3,1},100},{{1207969338894,3,1},100},{{2581704472272,3,1},100},{{5710258305915,3,1},100},{{4575028001451,3,1},100},{{6127038980367,3,1},100},{{6154797212592,3,1},100},{{3093032437791,3,1},100},{{4879280394717,3,1},100},{{4434566740152,3,1},100},{{4287889708386,3,1},100},{{5050091074002,3,1},100},{{3018730845219,3,1},100},{{1750519753008,3,1},100},{{3874127291493,3,1},100},{{4443476737776,3,1},100},{{3372902372976,3,1},100},{{391894382958,3,1},100},{{2981564991411,3,1},100},{{6658950871278,3,1},100},{{6008995280958,3,1},100},{{2861858378472,3,1},100},{{6648352942761,3,1},100},{{2105158074480,3,1},100},{{3095128086936,3,1},100},{{6336921253434,3,1},100},{{1821722780355,3,1},100},{{465083260386,3,1},100},{{353652960066,3,1},100},{{4192293277914,3,1},100},{{5989414585983,3,1},100},{{3084989895468,3,1},100},{{4757271638685,3,1},100},{{6667971852021,3,1},100},{{6158931733230,3,1},100},{{5039814201729,3,1},100},{{2226054407451,3,1},100},{{2749117535196,3,1},100},{{4337967241023,3,1},100}}
In[]:=
ArrayPlotArrayPad[#,5]&/@CellularAutomaton[{#,3,1},{{1},0},110],ColorRules->["Colors"]&/@#[[1,1]]&/@
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
ResourceFunction["InteractiveListSelector"]ArrayPlotArrayPad[#,5]&/@CellularAutomaton[{#,3,1},{{1},0},110],ColorRules->["Colors"]->#&/@#[[1,1]]&/@