Cel1.ma
Una presentazione, con la regola 

{a_,x_,b_}  :> Mod[a+b,2]   o "regola Modulo 2"

detta anche regola 90, a motivo della lettura come decimale del numero binario risultante dai seguenti "denominatori", che si applicano nella trasformazione ai "numeratori" ordinati come segue (da 7 a 0)

1 1 1  1 1 0  1 0 1  1 0 0  0 1 1  0 1 0  0 0 1  0 0 0
-----  -----  -----  -----  -----  -----  -----  -----
  0      1      0      1      1      0      1      0

2^^01011010

BaseForm[90,2]

?:>

Needs["Examples`CellularAutomata`"]

l=CenterSpot[{1},100];

r=NumberedRule[90];

ev=EvolveCA[l,r,50];

ShowCA[ev]