One-dimensional cellular automata: Difference between revisions
Content added Content deleted
(GP) |
(Added BBC BASIC) |
||
Line 280: | Line 280: | ||
Generation 8 : __##________________ |
Generation 8 : __##________________ |
||
Generation 9 : __##________________</pre> |
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}}== |
=={{header|Befunge}}== |