Wolfram Cloud Page

CAEvolve[ElementaryRule[122],RandomList[100],50]

CAState[50,{-49},CA1D[100],{0,1,1,1,1,1,1,0,0,1,1,1,1,0,0,1,1,0,0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,0,0,1,1,1,1}]

CAEvolveList[ElementaryRule[122],SeedRandomList[12313,40],40];

FromCAState[%];

%[[20]]

{0,0,0,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1}

%[[20]]

1

Table[FromCAState[CAEvolve[ElementaryRule[122],MapAt[(1-#)&,%30[[t]],x],20-t]][[20]],{x,40},{t,19}];

Show[CellGraphics[%]];