One-dimensional cellular automata: Difference between revisions

m
no edit summary
mNo edit summary
mNo edit summary
Line 4,679:
petri: head petri new-petri: head new-petri
clear insert petri new-petri
]
 
display: function [petri] [
print replace/all (replace/all to-string petri "0" "_") "1" "#"
petri
]
 
loop 10 [
evo probedisplay [1 1 1 0 1 1 0 1 0 1 0 1 0 1 0 0 1 0]
]
</lang>
Line 4,688 ⟶ 4,693:
{{out}}
<pre>
###_##_#_#_#_#__#_
[1 1 1 0 1 1 0 1 0 1 0 1 0 1 0 0 1 0]
#_#####_#_#_#_____
[1 0 1 1 1 1 1 0 1 0 1 0 1 0 0 0 0 0]
_##___##_#_#______
[0 1 1 0 0 0 1 1 0 1 0 1 0 0 0 0 0 0]
_##___###_#_______
[0 1 1 0 0 0 1 1 1 0 1 0 0 0 0 0 0 0]
_##___#_##________
[0 1 1 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0]
_##____###________
[0 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0]
_##____#_#________
[0 1 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0]
_##_____#_________
[0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0]
_##_______________
[0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
_##_______________
[0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
</pre>
 
Anonymous user