Script Library: 1213 scripts
 

oneliner-rule-110-ca.r

Rebol [ Title: "Cellular automata" Date: 20-Jul-2003 File: %oneliner-rule-110-ca.r Purpose: {Shows some steps in the evolution of a Turing complete cellular automaton from a single marked cell. Replace "..1.11." with some other expression, like "..11.." or ".1..11", and what do you have? Rule 90, and rule 30, respectively.} One-liner-length: 117 Version: 1.0.0 Author: "Errru" Library: [ level: 'intermediate platform: none type: [How-to FAQ one-liner] domain: [game math] tested-under: none support: none license: none see-also: none ] ] s:"..1.."loop 38[t: copy".."forall s[if s/3[append t pick{.1}none? find{..1.11.}copy/part s 3]]print s: append t".."]
halt ;; to terminate script if DO'ne from webpage