In[]:=
ParallelEvaluate[$MachineName]//Counts
Out[]=
theta20,epsilon23,delta24,tremac20,macstudio-basement19,threadripper32,threadripper264
In[]:=
ParallelEvaluate[$MachineName]//Counts
Out[]=
theta20,epsilon23,delta24,tremac20,macstudio-basement19,threadripper32,threadripper264
In[]:=
Module{goal=100,deep=100000,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,3,1},0},deep//Last,{i,1000}
Now
NotebookSave[]