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

Get["cellular.m", 
      Path  ->  {"\N_L_Mathematica\Cell"}]

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]]