Hücresel otomatla oynuyordum ve ilginç davranışları olan bir tane buldum. Şöyle çalışır:

Soldan sağa bir ikili dize okur, 1ardından 2başka değerlerle karşılaşırsa 0sonuca a ekler ve okumaya devam eder. Bir 0(veya 3 değerden daha az değer kaldı) ile karşılaşırsa, geçerli değeri ve a'yı ekler 1ve okumaya devam eder. Dizenin sonunda 1sonuca bir tek ekler .

İşte bir jenerasyonun çalışılmış bir örneği

01011111
^

Önce bir karşılaşmaya 0biz eklemek böylece 01bizim sonuca

01011111
 ^
01

Şimdi bir ile karşılaştık, 1sıfır ekledik ve sonraki iki değeri atladık

01011111
    ^
010

Başka biriyle karşılaşıyoruz, 1böylece aynısını yapıyoruz

01011111
       ^
0100

Artık 1atlamak için başka bir alanımız var, ancak atlamak için yeterli alanımız yok, bu yüzden mevcut hücreyi ve a 1(bu örnekte 11)

01011111
        ^
010011

Sonundayız, bu yüzden tek bir tane ekliyoruz 1ve bu nesli sonlandırıyoruz

01011111
        ^
0100111

Görev

Herhangi bir makul formatta girdi verildiğinde, otomatın bir neslini hesaplayan bir fonksiyon veya program oluşturmalısınız.

Bu bir kod golf sorusudur, bu nedenle cevaplar bayt cinsinden puanlandırılacak, daha az bayt daha iyi olacaktır.

Örnek uygulama

İşte Haskell'deki örnek bir uygulama (bir işlevi tanımlar d, ancak program süresiz olarak bir yineleme yazdırır):

d('1':_:_:x) = "0" ++ d x
d(a:x) = a:'1':d x
d x = "1"
r x = x:map d(r x)

Çevrimiçi deneyin!

V , 26 22 21 bayt

Normal ifadeleri birleştirerek 4 baytlık @CowsQuack'e teşekkürler! @ ØrjanJohansen, bazı regex kombinasyonlarına sahip başka bir bayt için.

Ó1../3
Ó./&1
Ó31/0
A1

Çevrimiçi deneyin!

Yerine birden çok kez kullanır ve sonunda 1 ekler. Çok süslü bir şey yok. İstenilen efekti elde etmek için remaps 1ve 0insert modunda bir versiyonum var , ancak biraz daha uzun.

(Çoklu değiştirme sürümü: Çevrimiçi deneyin! )

JavaScript (ES6), 56 bayt

Girişi bir karakter dizisi olarak alır. Bir dize veya sayı döndürür1 boş bir dizi verilirse .

f=([v,...a])=>v?(+v&&a[1]?a.splice(0,2)&&'0':v+1)+f(a):1

gösteri

f=([v,...a])=>v?(+v&&a[1]?a.splice(0,2)&&'0':v+1)+f(a):1

console.log(f([...'01011111']))
console.log(f([...'10']))

Animasyonlu sürüm

Sabit giriş örnekleri: 0101, 010011111

f=([v,...a])=>v?(+v&&a[1]?a.splice(0,2)&&'0':v+1)+f(a):1

s = '1';
setInterval(_=>o.innerHTML=s=''+f([...s]), 200)

<input oninput="s=this.value" value="1" />
<pre id=o style="font-size:32px"></pre>

Python 2 , 88 bayt

I,r=input(),[]
while I:a=I[0]and len(I)>2;b=a<1;r+=[I[0]]*b+[+b];I=I[a*2+1:]
print r+[1]

Çevrimiçi deneyin!

Python 2 , 89 bayt

x=input()
y=0
k=[]
while x[y:]:v=1-x[y]*(y<len(x)-2);k+=[x[y]]*v+[v];y+=3-2*v
print k+[1]

Çevrimiçi deneyin!

Çubuk sayesinde -4 bayt micsthepick sayesinde ovs -1 bayt sayesinde
-6 bayt

Swift 3 , 147 bayt

@ Mr.Xcoder sayesinde -1

func g(i:[Int]){var r=[Int]();var s=ArraySlice(i);while let e=s.popFirst(){if 0<e&&2<s.count{r+=[0];s=s.dropFirst(2)}else{r+=[e,1]}};print(r+[1])}

Ungolfed, yazdırma yerine değeri döndürme:

func iterate(state: [Int]) -> [Int] {
    var result = [Int]()

    var inputSlice = ArraySlice(state)

    while let element = inputSlice.popFirst() {
        if 0 < element && 2 < inputSlice.count { 
            result += [0]
            inputSlice = inputSlice.dropFirst(2)
        }
        else {
            result += [element, 1]
        }

        //debugPrint(result.map(String.init).joined(separator: ""))
    }

    return result + [1]
}

Python 2 , 81 bayt

Hem girdi hem de çıktı listelerdir (Outgolfer Erik sayesinde)

def f(Z):return Z and((1>Z[0]or 3>len(Z))and[Z[0],1]+f(Z[1:])or[0]+f(Z[3:]))or[1]

Çevrimiçi deneyin!

Bazı durumlar

[0,1,0,1,1,1,1,1] --> [0,1,0,0,1,1,1]
[0] ----------------> [0,1,1]
[1] ----------------> [1,1,1]
[] -----------------> [1]
[0,1] --------------> [0,1,1,1,1]
[1,0] --------------> [1,1,0,1,1]

Python 2 , 85 bayt

Hem giriş hem de çıkış dizgidir (ilk çözüm)

def f(Z):return Z and(('0'==Z[0]or 3>len(Z))and Z[0]+'1'+f(Z[1:])or'0'+f(Z[3:]))or'1'

Çevrimiçi deneyin!

Bazı durumlar

'01011111'--> 0100111
'0'---------> 011
'1'---------> 111
''----------> 1
'01'--------> 01111
'10'--------> 11011

Explication Bu simplily bir özyinelemeli yöntemin bir golf olduğunu.

Perl 5 , 62 + 2 ( -F) = 64 bayt

$r.=$F[$i]&&$i+2<@F&&($i+=2)?0:"$F[$i]1";++$i<@F&&redo;say$r.1

Çevrimiçi deneyin!

Scala , 131 + 29 = 160 bayt

Bu, dizeyi aparametre olarak alan ve çıktıyı dize olarak döndüren bir işlevin içindedir .

var s=""
var k=0
for(c<-0 to a.length-1)breakable{if(k>0){k-=1
break}
if(a(c)==49&c<a.length-3){s+="0"
k+=2}else s+=a(c)+"1"}
s+"1"

Bunu yapmak zorundayım import util.control.Breaks._, bu yüzden bu 28 bayt artı sondaki bir satır beslemesini eklemeliyim.

Çevrimiçi deneyin!

C # (.NET Core) , 108 bayt

n=>{var t="";for(int i=0,b=n.Length;i<b;){if(n[i]>'0'&i+2<b){t+="0";i+=3;}else t+=n[i++]+"1";}return t+"1";}

Çevrimiçi deneyin!

Bir dize olarak girdi alınır ve bir dize çıktı olarak döndürülür.