WOLFRAM NOTEBOOK

Using Code-02
In[]:=
$LifeData=Append[$LifeData,Select[lifeData,#Year>2023&]];
In[]:=
Length[%]
Out[]=
1393

“Flights” of objects: oscillator, gun, spaceship

In[]:=
ReverseSort[$LifeData[[All,"Class"]]//Counts]
Out[]=
Oscillator776,Strict still life169,Spaceship113,Conduit70,Gun63,Methuselah40,Reflector38,Puffer18,Sawtooth15,Breeder13,Spark11,Constellation8,Induction coil7,Rotor6,Crawler6,Still life component5,Spacefiller5,Unit cell4,Pseudo still life3,Memory cell3,Eater3,Wickstretcher3,Problem3,Wave2,Growing spaceship2,Fuse2,Wick2,Agar1,Superstring1,Caber tosser1
The invention of new categories ....
In[]:=
Sort/@Map[Map[Last],GroupBy[Transpose[Values/@{$LifeData[[All,"Class"]],$LifeData[[All,"Year"]]}],First]]
Out[]=
In[]:=
First/@%90
Out[]=
Strict still life1969,Oscillator1969,Spark1969,Spaceship1969,Still life component1969,Methuselah1969,Pseudo still life1970,Constellation1970,Induction coil1970,Rotor1970,Gun1970,Wave1971,Puffer1971,Memory cell1971,Breeder1971,Eater1971,Growing spaceship1971,Agar1971,Superstring1971,Fuse1971,Conduit1972,Wick1989,Caber tosser1991,Sawtooth1991,Wickstretcher1992,Reflector1993,Spacefiller1993,Unit cell1996,Problem2001,Crawler2003
In[]:=
TimelinePlotDateObject[{#}]&/@
Out[]=
In[]:=
TimelinePlotDateObject[{#}]&/@Select
,#<1980&
Out[]=
In[]:=
ColumnNormalHistogram[#,{1},PlotRange->{{1969,2025},Automatic},Frame->True,FrameTicks->{Automatic,None},AspectRatio->.3]&/@
,Right
Out[]=
Strict still life
Oscillator
Spark
Spaceship
Still life component
Methuselah
Pseudo still life
Constellation
Induction coil
Rotor
Gun
Wave
Puffer
Memory cell
Breeder
Eater
Growing spaceship
Agar
Superstring
Fuse
Conduit
Wick
Caber tosser
Sawtooth
Wickstretcher
Reflector
Spacefiller
Unit cell
Problem
Crawler
<<<<< Still lifes : https://oeis.org/A019473 >>>>>
[ Puffer : “unpredictable” ; leaves a lot of mess ]
[ Methuselah ; analogous to busy beaver ]
conduit : moves object somewhere
[[ Make a version where the bars are colored according to whether the new structure is actually “progress” ]]
Define progress by “smaller footprint” (e.g. initial size; maximum ever size; etc.) [ some patterns are “worse in every way” ... i.e. bigger at every step, more black cells, ... ]
[ No single definition of “progress” ]

First instance of each category

Categories

All oscillators

First discovered of a given period:

Minimal of a given period

[[[ Select out only the minimal so far ... ]]]

[[ want: original discovery + “optimization history” ]]

cf bio evolution: find a lifetime, then try to minimize the number of cells in the whole pattern to achieve that lifetime
Adaptive evolution for GoL ... to find structures that live a particular number of steps

“Definitions of progress”

[ Also: other measures of progress, e.g. factorability ]

​

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.