com-glider ( gadget -- )


Vocabulary
game-of-life

Inputs
gadgetan object


Outputs
None

Definition


:: com-glider ( gadget -- )
gadget grid>> :> grid
{ { 2 1 } { 3 2 } { 1 3 } { 2 3 } { 3 3 } }
[ grid nth t -rot set-nth ] assoc-each gadget relayout-1 ;