RosettaCodeData/Task/One-dimensional-cellular-automata/Mathematica/one-dimensional-cellular-automata-2.math
2017-09-25 22:28:19 +02:00

1 line
91 B
Text

CellularAutomaton[2^^01101000 (* == 104 *), {{1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1}, 0}, 12];