One-dimensional cellular automata: Difference between revisions

=={{header|Dëjà Vu}}==

<lang dejavu>new-state size:

0 ]

repeat size:

random-range 0 2

[ 0

update s1 s2:

for i range 1 - len s1 2:

s1! -- i

s1! i

s1! ++ i

+ +

set-to s2 i = 2

s2 s1

print-state s:

for i range 1 - len s 2:

!print\ s! i

!print ""

same-state s1 s2:

for i range 1 - len s1 2:

if /= s1! i s2! i:

return false

true

run size:

new-state size

new-state size

while true:

update

print-state over

if same-state over over:

return print-state drop

run 60</lang>

{{out}}

<pre>001110011010110111001111110111011111010011000001010111111100

001010011101111101001000011101110001100011000000101100000100

000100010111000110000000010111010001100011000000011100000000

000000001101000110000000001101100001100011000000010100000000

000000001110000110000000001111100001100011000000001000000000

000000001010000110000000001000100001100011000000000000000000

000000000100000110000000000000000001100011000000000000000000

000000000000000110000000000000000001100011000000000000000000

000000000000000110000000000000000001100011000000000000000000</pre>