One-dimensional cellular automata: Difference between revisions

Content added Content deleted
Line 2,624: Line 2,624:
<lang lb>' [RC] 'One-dimensional cellular automata'
<lang lb>' [RC] 'One-dimensional cellular automata'


' does not wrap so fails for some rules

global rule$, state$

rule$ ="00010110" ' Rule 22 decimal
rule$ ="00010110" ' Rule 22 decimal


Line 2,632: Line 2,630:


for j =1 to 20
for j =1 to 20
⚫
print state$
oldState$ =state$
oldState$ =state$
state$ ="0"
state$ ="0"
for k =2 to 32
for k =2 to len( oldState$) -1
NHood$ =mid$( oldState$, k -1, 3) ' pick 3 char neighbourhood and turn binary string to decimal
NHood$ =mid$( oldState$, k -1, 3) ' pick 3 char neighbourhood and turn binary string to decimal
vNHood =0
vNHood =0
Line 2,643: Line 2,642:
state$ =state$ +mid$( rule$, vNHood +1, 1)
state$ =state$ +mid$( rule$, vNHood +1, 1)
next k
next k
state$ =state$ +"0"


⚫
print state$
next j
next j


Retrieved from "https://rosettacode.org/wiki/One-dimensional_cellular_automata"