Anonymous user
One-dimensional cellular automata: Difference between revisions
Added BBC BASIC
(GP) |
(Added BBC BASIC) |
||
Line 280:
Generation 8 : __##________________
Generation 9 : __##________________</pre>
=={{header|BBC BASIC}}==
<lang bbcbasic> DIM rule$(7)
rule$() = "0", "0", "0", "1", "0", "1", "1", "0"
now$ ="01110110101010100100"
FOR generation% = 0 TO 9
PRINT "Generation " ; generation% ": ", now$
next$ = ""
FOR cell% = 1 TO LEN(now$)
next$ += rule$(EVAL("%"+MID$("0"+now$+"0", cell%, 3)))
NEXT cell%
SWAP now$, next$
NEXT generation%</lang>
Output:
<pre>Generation 0: 01110110101010100100
Generation 1: 01011111010101000000
Generation 2: 00110001101010000000
Generation 3: 00110001110100000000
Generation 4: 00110001011000000000
Generation 5: 00110000111000000000
Generation 6: 00110000101000000000
Generation 7: 00110000010000000000
Generation 8: 00110000000000000000
Generation 9: 00110000000000000000</pre>
=={{header|Befunge}}==
| |||