Permalink
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (21 sloc) 619 Bytes
/*
* The Circute cellular automaton, expressed in ALPACA.
* Covered under a BSD-style license; see LICENSE for more information.
*
* Summer 2005: original design and definition of the Circute CA.
* May 3 2007: added BSD license.
*/
state Space " ";
state NAND "N";
state Wire "="
to Spark when
< Spark or > Spark or ^ Spark or v Spark or
(v NAND and (v< Wire or v> Wire)) or
(^ NAND and (^< Wire or ^> Wire));
state Spark "#"
to Tail when
< Tail or > Tail or ^ Tail or v Tail or
(v NAND and v< Spark and v> Spark) or
(^ NAND and ^< Spark and ^> Spark);
state Tail "-"
to Wire.