"Talk" ist eine baroquifizierte akkumulatorbasierte Sprache, die als Antwort auf Dennis ' Zitat auf talk.tryitonline.net erstellt wird.

Waiting for someone to create an esolang called talk. 

. Die "Talk" -Sprache hat 4 Befehle:

• 00 Wenn der Akku 0 ist, setzen Sie den Akku auf 0.
• 01 Wenn der Akku 0 ist, setzen Sie den Akku auf 1.
• 10 Wenn der Akku 1 ist, setzen Sie den Akku auf 0.
• 11 Wenn der Akku 1 ist, setzen Sie den Akku auf 1.

Eingang:

• Die Eingabe kann über jede akzeptable Eingabemethode nach unseren Standard-E / A-Regeln erfolgen.

• Es gibt zwei Eingänge, den anfänglichen Akkumulatorwert und das Programm. Sie können diese beiden Eingaben zu einer Eingabe zusammenführen oder Ihre Eingabe in gültige Befehle aufteilen (z. B. als Liste verwenden, z. B. [00, 01, 00]), wenn Sie möchten.

Ausgabe:

• Am Ende einer Befehlsausführung wird der Akkumulator implizit ausgegeben.

Regeln:

• Die Eingabe kann eine einzelne Zeichenfolge oder Zeichenliste sein.
• Da dies Code-Golf ist, gewinnt die kürzeste Antwort in Bytes.
• Wir nehmen Ziffern oder Zeichenfolgen / Zeichen.

  Testfälle:

0 0001111101 -> 1
0 000100 -> 1
0 11001000 -> 0

Bestenlisten

Hier ist ein Stack-Snippet, mit dem Sie sowohl eine regelmäßige Rangliste als auch eine Übersicht der Gewinner nach Sprache erstellen können.

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift unter Verwendung der folgenden Markdown-Vorlage:

# Language Name, N bytes

Wo Nist die Größe Ihrer Einreichung? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

# Ruby, <s>104</s> <s>101</s> 96 bytes

Wenn Sie dort mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder Sie die Strafen für Dolmetscherflaggen separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

# Perl, 43 + 2 (-p flag) = 45 bytes

Sie können den Sprachnamen auch zu einem Link machen, der dann im Leaderboard-Snippet angezeigt wird:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

var QUESTION_ID=190819;
var OVERRIDE_USER=8478;
var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;function answersUrl(d){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+d+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(d,e){return"https://api.stackexchange.com/2.2/answers/"+e.join(";")+"/comments?page="+d+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(d){answers.push.apply(answers,d.items),answers_hash=[],answer_ids=[],d.items.forEach(function(e){e.comments=[];var f=+e.share_link.match(/\d+/);answer_ids.push(f),answers_hash[f]=e}),d.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(d){d.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),d.has_more?getComments():more_answers?getAnswers():process()}})}getAnswers();var SCORE_REG=function(){var d=String.raw`h\d`,e=String.raw`\-?\d+\.?\d*`,f=String.raw`[^\n<>]*`,g=String.raw`<s>${f}</s>|<strike>${f}</strike>|<del>${f}</del>`,h=String.raw`[^\n\d<>]*`,j=String.raw`<[^\n<>]+>`;return new RegExp(String.raw`<${d}>`+String.raw`\s*([^\n,]*[^\s,]),.*?`+String.raw`(${e})`+String.raw`(?=`+String.raw`${h}`+String.raw`(?:(?:${g}|${j})${h})*`+String.raw`</${d}>`+String.raw`)`)}(),OVERRIDE_REG=/^Override\s*header:\s*/i;function getAuthorName(d){return d.owner.display_name}function process(){var d=[];answers.forEach(function(n){var o=n.body;n.comments.forEach(function(q){OVERRIDE_REG.test(q.body)&&(o="<h1>"+q.body.replace(OVERRIDE_REG,"")+"</h1>")});var p=o.match(SCORE_REG);p&&d.push({user:getAuthorName(n),size:+p[2],language:p[1],link:n.share_link})}),d.sort(function(n,o){var p=n.size,q=o.size;return p-q});var e={},f=1,g=null,h=1;d.forEach(function(n){n.size!=g&&(h=f),g=n.size,++f;var o=jQuery("#answer-template").html();o=o.replace("{{PLACE}}",h+".").replace("{{NAME}}",n.user).replace("{{LANGUAGE}}",n.language).replace("{{SIZE}}",n.size).replace("{{LINK}}",n.link),o=jQuery(o),jQuery("#answers").append(o);var p=n.language;p=jQuery("<i>"+n.language+"</i>").text().toLowerCase(),e[p]=e[p]||{lang:n.language,user:n.user,size:n.size,link:n.link,uniq:p}});var j=[];for(var k in e)e.hasOwnProperty(k)&&j.push(e[k]);j.sort(function(n,o){return n.uniq>o.uniq?1:n.uniq<o.uniq?-1:0});for(var l=0;l<j.length;++l){var m=jQuery("#language-template").html(),k=j[l];m=m.replace("{{LANGUAGE}}",k.lang).replace("{{NAME}}",k.user).replace("{{SIZE}}",k.size).replace("{{LINK}}",k.link),m=jQuery(m),jQuery("#languages").append(m)}}

body{text-align:left!important}#answer-list{padding:10px;float:left}#language-list{padding:10px;float:left}table thead{font-weight:700}table td{padding:5px}

 <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="https://cdn.sstatic.net/Sites/codegolf/primary.css?v=f52df912b654"> <div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td><a href="{{LINK}}">{{SIZE}}</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td><a href="{{LINK}}">{{SIZE}}</a></td></tr></tbody> </table> 

Gelee , 3 Bytes

y@/

Die Eingabe ist eine einzelne Liste: der Akkumulator, gefolgt von den Paaren.

Probieren Sie es online aus!

Wie es funktioniert

Das yAtom führt eine Transliteration durch; [a, b] yc ersetzt a durch b , gibt also b zurück, wenn a = c und c, wenn a ≠ c .

y@/Faltet / reduziert die Eingabe durch yvertauschte Argumente und führt eine Transliteration pro Paar durch.

Python 3 , 43 Bytes

lambda s:re.sub("00|11","",s)[-1]
import re

Probieren Sie es online aus!

Die Funktion verwendet eine einzelne Zeichenfolge als Eingabe, wobei das erste Zeichen der Anfangszustand ist und der Rest der Zeichenfolge die Befehle darstellt. Diese Lösung kann problemlos in andere Sprachen portiert werden, die reguläre Ausdrücke besser unterstützen.

Der schwierige Teil besteht darin, zu beweisen, dass die Lösung das richtige Ergebnis liefert. Um dies zu sehen, benötigen wir eine gründliche Analyse der Befehle. Erstens können wir sehen, dass die Befehle die folgenden Eigenschaften haben:

• Eigenschaft (1) : Befehle 00und 11Beibehaltung des Akkumulatorstatus.
• Eigenschaft (2) : Befehle 01und 10machen den Akkumulatorstatus unabhängig vom ursprünglichen Status mit dem zweiten Bit identisch.

Daher ist der endgültige Akkumulatorzustand:

• Fall 1 : Wenn kein 01oder ein 10Befehl vorhanden ist, entspricht der Endzustand dem Ausgangszustand.
• Fall 2 : Andernfalls das letzte Bit des letzten 10oder 01Befehls.

Als nächstes werden wir zeigen, dass die Lösung in beiden Fällen das richtige Ergebnis liefert. Wir werden die Aussage für den Endzustand beweisen 0und der Endzustand von 1kann analog bewiesen werden. Wenn der Endzustand 0der Fall ist, erfolgt die Eingabe in einer der folgenden Formen:

• ^0{2k+1}11(11|00)*

  Für Fall 1 muss die Eingabezeichenfolge smit 2k+10s beginnen, gefolgt von 11und 00Befehlen. Das Eliminieren von 00s und 11s ergibt eine einzige 0, die der Endzustand ist.

• .+10{2k+1}11(11|00)*

  In Fall 2 endet die Eingabezeichenfolge mit einem 10Befehl, gefolgt von null oder mehr 00und 11s. Dieses Muster entspricht a 1gefolgt von 2k+10s und dann null oder mehr 11s und 00s. Durch Eliminieren von 00s und 11s bleibt die letzte der 2k+1Nullen am Ende der Zeichenfolge zurück, die den Endzustand darstellt.

Basierend auf all dem oben Gesagten ist nach dem gleichzeitigen Eliminieren von 00s und 11s in einem einzigen Durchgang ( 01001ist ein Gegenbeispiel, wenn 00in einem Durchgang und dann 11in einem anderen Durchgang eliminiert wird ) sdas letzte Zeichen der Endzustand. Damit ist die Richtigkeit der Lösung bewiesen.

Perl 6 , 17 Bytes

{m/.)>[(.)$0]*$/}

Probieren Sie es online aus!

Nutzt „Sie können fusionieren diese beiden Eingänge in einen Eingang , wenn Sie wie“ durch die Eingabe als Akkumulatorwert unter verkettet mit den Befehlen zB 1,[00,11]ist 10011. Wenn dies nicht in Ordnung ist, sind es nur 5 zusätzliche Bytes, um es als zu nehmen f(accumulator, commands). Gibt ein Übereinstimmungsobjekt zurück, das zu einer Zeichenfolge gezwungen werden kann.

Erläuterung:

{                }  # Anonymous code block
 m/             /   # Find the first match from the input
   .)>              # Capture a number
      [     ]*      # Followed by any number of
       (.)$0        # Pairs of identical characters
              $     # Ending the string

Grundsätzlich funktioniert dies, weil die Befehle 00und 11buchstäblich nichts bewirken, während die Befehle 01und 10den Akkumulator nur auf die zweite Ziffer des Befehls setzen. Wenn keine Befehle vorhanden sind, wird stattdessen der Anfangswert des Akkumulators verwendet.

Zsh , 33 Bytes

Die Zeichenliste wird als Argumente übergeben, der Anfangswert des Akkumulators als stdin.

read a
for x y;a=$[x^a?a:y]
<<<$a

Probieren Sie es online aus!

39 Bytes : Wenn die Befehle eine einzelne Zeichenfolge sein müssen

Eingabe ist accumulator commandsals Argumente.

for x y (${(s::)2})1=$[x^$1?$1:y]
<<<$1

Probieren Sie es online aus!

Zum Spaß hier ein rekursiver 50-Byte -Einzeiler ( TIO ):

<<<${${2+`f $[$1^${2[1]}?$1:${2[2]}] ${2:2}`}:-$1}

Python 3 , 52 Bytes

f=lambda a,s:s and f([s[1],a][s[0]==s[1]],s[2:])or a

Probieren Sie es online aus!

Inkonsistenter Rückgabetyp dank Chas Brown behoben

Nimmt die Eingabe als zwei Zeichenfolgen auf. der Akku und der Code.

Brachylog , 11 9 Bytes

tġ₂≠ˢtt|h

Probieren Sie es online aus!

Da ich lange genug vergessen habe, den Akku nach jedem Befehl zu drucken , habe ich eine deutlich weniger naive Lösung formuliert, die sich von Jo Kings Perl-Antwort inspirieren lässt.

       |     The output is
     tt      the last element of the last element of
t            the last element of the input
 ġ₂          split into length-2 slices
   ≠ˢ        with equal pairs removed.
       |     If there is no such element, the input
        h    's first element is the output.

Alte Lösung:

Brachylog , 18 16 Bytes

ġ₂ᵗc{th~h?tt|h}ˡ

Probieren Sie es online aus!

-2 Bytes vom Ändern des Eingabeformats.

JavaScript (ES6), 27 Byte

Nimmt die Eingabe als (a)(code), wobei Code eine Liste von 2-Bit-Ganzzahlen ist.

a=>c=>c.map(x=>a^=x==a+1)|a

Probieren Sie es online aus!

JavaScript (ES6),  47  40 Byte

Nimmt die Eingabe als (a)(code), wobei Code eine Zeichenfolge ist.

a=>c=>c.replace(/../g,x=>a^=x%4==a+1)&&a

Probieren Sie es online aus!

Wie?

$(a=0,x=01_2)$$(a=1,x=10_2)$

  a | x (bin) | int(x) % 4 | a + 1 | equal?
----+---------+------------+-------+--------
  0 |   "00"  |  0 % 4 = 0 |   1   |   N
  1 |   "00"  |  0 % 4 = 0 |   2   |   N
  0 |   "01"  |  1 % 4 = 1 |   1   |   Y
  1 |   "01"  |  1 % 4 = 1 |   2   |   N
  0 |   "10"  | 10 % 4 = 2 |   1   |   N
  1 |   "10"  | 10 % 4 = 2 |   2   |   Y
  0 |   "11"  | 11 % 4 = 3 |   1   |   N
  1 |   "11"  | 11 % 4 = 3 |   2   |   N

sed- E, 26 19 Bytes

Eine satte -7 Bytes von @Cowsquack durch Realisieren, dass alle Paare entfernt werden, funktioniert ebenfalls.

s/(.)\1//g
s/.*\B//

Nimmt Eingaben auf stdin zusammen. Inspiriert von Jo Kings Perl-Antwort . Nachlaufende Paare entfernen Entfernen Sie alle Paare und erhalten Sie die letzte Ziffer.

Probieren Sie es online aus! Probieren Sie es online aus!

Retina 0,8,2 , 18 11 Bytes

(.)\1

!`.$

Probieren Sie es online aus! Link enthält Testfälle. Nimmt verkettete Eingaben entgegen. Dank @CowsQuack wurden 6 Bytes gespart, weil darauf hingewiesen wurde, dass das Entfernen aller doppelten Zeichen und das anschließende Entfernen des letzten verbleibenden Zeichens funktioniert, obwohl der Port von @ JoKings ursprünglicher Antwort auch ohne diesen Trick um 3 Bytes hätte gespielt werden können.

Python 3 , 38 Bytes

lambda l:[y for*x,y in l if[y]!=x][-1]

Probieren Sie es online aus!

Basierend auf Joels Lösung . Nimmt die Eingabe als Liste des anfänglichen Akkumulatorwerts (Zeichenfolge Länge eins) gefolgt von den Befehlen (Zeichenfolgen Länge zwei). Findet den letzten Befehl mit zwei ungleichen Werten und gibt sein zweites Zeichen aus.

Damit dies auf den anfänglichen Akkumulatorwert fällt, wenn keine solchen Befehle vorhanden sind, machen wir es so, dass die Zeichenfolge mit einem einzelnen Zeichen den Test besteht. Dazu prüfen wir, ob eine Singleton-Liste mit dem letzten Zeichen ungleich einer Liste aller vorhergehenden Zeichen ist, die von einer beliebigen Zeichenfolge der Länge 1 oder 2 mit zwei verschiedenen Zeichen übergeben wird.

Perl 5 -p , 37 33 Bytes

$\=<>;s/(.)(.)/$\=$2if$\==$1/ge}{

Probieren Sie es online aus!

Die Eingabe besteht aus zwei Zeilen: Die erste Zeile ist die Befehlssequenz, die zweite ist der Akkumulator.

Python 2 , 56 Bytes

f=lambda a,c:f([a,1,0,a][int(c[:2],2)],c[2:])if c else a

Probieren Sie es online aus!

Gelee , 8 6 Bytes

EÐḟṪṪo

Probieren Sie es online aus!

-2 Bytes dank Nick Kennedy, der mich über eine Regeländerung informiert hat. (Sein vorgeschlagenes Golfspiel EÐḟFȯṪscheint etwas klüger zu sein, hat aber die gleiche Länge wie meine vorherige Lösung minus s2.) Das Eingabeformat verwendet die Befehle jetzt als Liste von Zeichenfolgen mit zwei Zeichen, aber die Testfußzeile wird aus Bequemlichkeitsgründen aus dem alten Format übersetzt.

Übersetzt aus meiner neueren Brachylog-Lösung.

Alte Version:

Gelee , 13 Bytes

ḢẎ⁼⁹a⁸o
s2ç@ƒ

Probieren Sie es online aus!

Ich bin nicht 100% sicher, ob dies korrekt ist, aber es gelingt in allen drei Testfällen. Nimmt die Befehle als linkes Argument und den anfänglichen Akkumulator als rechtes Argument.

Haskell , 29 Bytes

Definiert eine unbenannte Funktion in der ersten Zeile mit Typ (Foldable t, Eq b) => b -> t [b] -> b. Für die Zwecke dieses Code-Golfs können wir es so instanziieren, Char -> [String] -> Chardass das erste Argument der Akkumulator und das zweite eine Liste von Zeichenfolgen ist, wobei jede Zeichenfolge ein einzelner Befehl ist.

foldl(#)
a#[x,y]|a==x=y|1>0=a

Probieren Sie es online aus!

Python, 111 Bytes

def f(a,b):
    c=a
    for i in range(0,len(b)-1,2):
        c=(not b[i])*(c or b[i] or b[i+1]) or c*b[i]*b[i+1]
    return c

Ungolfed. EDIT: AHHH Jemand hat mich geschlagen!

Haskell , 36 Bytes

f(x:y:s)=f s.last.(:[y|x/=y])
f _=id

Probieren Sie es online aus!

Nimmt die Eingabe so f(string)(char)an, dass das Zeichen der Akkumulator und die Zeichenfolge die Liste der Befehle ist.

05AB1E , 3 Bytes

ø`:

Probieren Sie es online aus!

Reißverschluss, auf den Stapel werfen, ersetzen.

Stax , 3 Bytes

F|t

Führen Sie es aus und debuggen Sie es

Führen Sie für jede Anweisung eine Zeichenübersetzung durch.

Bash , 58 40 Bytes

Fügen Sie ein Byte für ein vollständiges Programm hinzu: Wechseln Sie fzu $0.

(($1=$2-a?a:$3,1))&&f $1 ${@:4}||echo $1

58 Bytes Probieren Sie es online aus!

Das Ternär gibt false zurück, wenn $1es auf gesetzt ist 0, aber das ,1am Ende stellt sicher, dass das Ganze ((expression))true zurückgibt, mit Ausnahme eines Syntaxfehlers.

Wenn alle Argumente verbraucht sind, tritt ein Syntaxfehler auf und die Rekursion endet.

Holzkohle , 16 Bytes

Ｆ⪪η²Ｆ⁼θ§ι⁰≔§ι¹θθ

Probieren Sie es online aus! Der Link führt zur ausführlichen Version des Codes. Nimmt separate Argumente. Erläuterung:

Ｆ⪪η²

Teilen Sie die Anweisungen in Ziffernpaare auf und durchlaufen Sie sie.

Ｆ⁼θ§ι⁰

Wenn der Akku gleich der ersten Ziffer ist ...

≔§ι¹θ

... dann weisen Sie ihm die zweite Ziffer zu.

θ

Drucken Sie den Akku am Ende der Schleife.

MATL , 13 12 Bytes

!dh2Ol4$Ys0)

Nimmt die Eingabe als zweispaltige Matrix, in der jede Zeile ein Befehl und eine Zahl ist

Probieren Sie es online aus! Oder überprüfen Sie alle Testfälle

Gelee , 7 Bytes

fؽḂ⁹;Ṫ

Ein dyadischer Link, der das Programm als Liste von Ganzzahlen links und den anfänglichen Akkumulator rechts akzeptiert, der eine Ganzzahl ergibt.

Probieren Sie es online aus! Oder sehen Sie sich eine Testsuite an

PHP , 38 Bytes

<?=strtr($argn,['00'=>'',11=>''])[-1];

Probieren Sie es online aus!

Grundsätzlich Port von Jo Kings Idee .

Runenverzauberungen , 28 Bytes

/~@/i~/i<
/=?/~iR:l}i{l1-=?!

Probieren Sie es online aus!

Nimmt die Eingabe als eine Reihe von durch Leerzeichen getrennten Bytes auf (Runic versteht keine Listen). Das erste Byte ist der Anfangszustand und jedes zweite Byte ist das Programm. Es erfolgt keine Prüfung (dh er nimmt nur dann gültig Programme werden als Eingabe gegeben und es ist egal, was Wert verwendet wird , darstellen 0und 1).

x86-Assembly, 33 Byte

Nimmt den anfänglichen Akkumulatorstatus in CL(Ganzzahl 0oder 1) und die Adresse der Befehle als ASCII-Zeichenfolge mit Nullterminierung auf ESI. Lässt den endgültigen Akkumulatorzustand in CL.

Richten Sie die Aufrufanweisung auf Offset 0x1B(Beschriftung interpretin der Erläuterung).

3C 30 74 03 B0 01 C3 30 C0 C3 E8 F1 FF FF FF 38
C8 AC 75 07 E8 E7 FF FF FF 88 C1 AC 84 C0 75 EA
C3

Erläuterung (unter Verwendung der Intel-Syntax):

; function to convert ASCII '1'/'0' into 0 or 1 int values (from AL to AL)
ctob:
        CMP AL, 0x30 ; '0'
        JE .zero
        MOV AL, 1
        RET
        .zero:
        XOR AL, AL
        RET

; interpreting function
        interp_lp:
                CALL ctob     ; convert to number
                CMP AL, CL    ; compare to current accumulator
                LODSB         ; read the next character of the string
                              ; this doesn't affect any flags and we need to do
                              ; it in both cases anyway
                JNE interpret ; if AL != CL (from above, not the new value of AL), skip forward
                CALL ctob     ; convert AL to number
                MOV CL, AL    ; store AL in CL
interpret:      LODSB         ; read the next character of the string
                TEST AL, AL   ; check if it is a zero byte
                JNZ interp_lp ; if not, jump back into the loop
        RET

C (gcc) , 45 41 Bytes

f(a,i)char*i;{a=*i?f(a^*i?a:i[1],i+2):a;}

Probieren Sie es online aus!

4 Bytes dank @ErikF rasiert!

Keg , -ir16 Bytes

"(!;½|':"=['_"|_

Probieren Sie es online aus!

Erklärt:

1. Nimmt die implizite Eingabe und verschiebt den Akkumulatorwert nach rechts nach unten

2. Wiederholen Sie die folgenden Schritte (Länge des Stapels - 1 geteilt durch 2)

2.1. Schieben Sie den Akku wieder nach oben

2.2. Vergleichen Sie die Gleichheit mit dem ersten Teil des Befehls

2.2.1. Wenn dies der Fall ist, ersetzen Sie den Akku, andernfalls setzen Sie den Ersatz ein

Die Eingabe wird als anfänglicher acc-Wert verwendet, der mit der Quelle verknüpft ist. Z.B

010011000

• Das erste Zeichen ist acc value
• Ruhe ist Programm

Kristall , 46 Bytes

Mit Befehlen in einem Array(Tuple(Int32,Int32)), wie z [{0,0}, {0,1}, {0,0}].

def f(s,i);i.map{|c,v|s+=~(s^c)&(s^v)%2};s;end

Probieren Sie es online aus!

Es ist ziemlich einfach in einer besser lesbaren Form zu verstehen:

def f(state, instructions)
  instructions.map do |check, value|
    state += ~(state ^ check) & (state ^ value) % 2
  end
  state
end

Die Funktion durchläuft jeden Befehl und entpackt die Tupelwerte automatisch in cund v. Es setzt dann die statedurch die Formel

state = state + NOT(state XOR check) AND (state XOR value) mod 2

was ich meistens durch Versuch und Irrtum erreicht habe. Sobald alle Befehle verarbeitet wurden, wird der Statuswert zurückgegeben.

C (Klirren) , 68 62 Bytes

t(s,e,a)char*s,*e;{for(;s<e;++s)a=*s++-48^a?a:*s-48;puts(&a);}

Probieren Sie es online aus!

Nimmt einen Zeiger auf den Anfang der Quellzeichenfolge, einen Zeiger auf das Ende der Quellzeichenfolge (start + strlen (start)) und den anfänglichen Akkumulatorwert.

Alte Version (druckt ASCII 48/49 für 0/1):

t(s,e,a)char*s,*e;{for(;s<e;++s)a=*s++-48^a?a:*s-48;putchar(a+48);}

Java (JDK) , 38 Byte

a->p->p.reduce(a,(s,c)->c<1|c>2?s:c%2)

Probieren Sie es online aus!

Die Eingänge sind intund ein IntStreamvon 0, 1, 2oder 3, die entsprechen 00, 01, 10, 11von binär.