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".."]