Anonymous user
One-dimensional cellular automata: Difference between revisions
One-dimensional cellular automata (view source)
Revision as of 23:44, 23 February 2016
, 8 years ago→{{header|PureBasic}}: Updated code to PureBasic v5.41 LTS
(→{{header|PureBasic}}: Updated code to PureBasic v5.41 LTS) |
|||
Line 3,204:
Dim nG.i(21)
Define.i n, Gen
DataSection
Data.i 0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,0
Line 3,211:
Read.i cG(n)
Next
OpenConsole()
Repeat
Line 3,227:
EndIf
Next
Until Gen > 9
PrintN("Press any key to exit"): Repeat: Until Inkey() <> ""</lang>
{{out}}
| |||