Cel2.ma
Come funziona? Operiamo in una dimensione (r=1),  con due valori (k=2), cioè {0,1}

Needs["Examples`CellularAutomata`"]

l=CenterSpot[{1},5]

ev=EvolveCA[l,{},1]

ev=EvolveCA[l,{{0,0,0}->0},1]

Se si introduce direttamente la regola 90 ...

ev=EvolveCA[l,{a_,x_,b_}  :> Mod[a+b,2] ,1]

Per cui

ShowCA[EvolveCA[CenterSpot[{1},40],
                {a_,x_,b_}  :> Mod[a+b,2],20]]