One-dimensional cellular automata: Difference between revisions

no edit summary
No edit summary
Line 441:
(terpri stream))</lang>
 
<prelang lisp>CL-USER> (loop for previous-value = nil then value
for value = #*01110110101010100100 then (next-cycle value)
until (equalp value previous-value)
Line 453:
..##....#.#.........
..##.....#..........
..##................</prelang>
 
=={{header|E}}==