Jump to content

One-dimensional cellular automata: Difference between revisions

One-dimensional cellular automata (view source)

Revision as of 18:56, 30 October 2023

677 bytes removed ,  7 months ago
m
Remove invalid portion from Seed7 entry (bad copy of Visual Basic .NET entry)
imported>Celtic-Coder
m (Remove invalid portion from Seed7 entry (bad copy of Visual Basic .NET entry))
Line 5,682:
__##________________
__##________________
</pre> =={{header|Seed7}}==
A graphical cellular automaton can be found [http://seed7.sourceforge.net/algorith/graphic.htm#cellauto here].
 
> petriCache(i) Then stable = False
If petriCache(i) Then dead = False
Next
 
PetriDish = petriCache
 
If dead Then Return PetriStatus.Dead
If stable Then Return PetriStatus.Stable
Return PetriStatus.Active
 
End Function
 
Private Function BuildDishString(ByVal PetriDish As BitArray) As String
Dim sw As New StringBuilder()
For Each b As Boolean In PetriDish
sw.Append(IIf(b, "#", "_"))
Next
 
Return sw.ToString()
End Function
End Module
 
=={{header|SequenceL}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/349219"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information