„Talk” to barokowy język oparty na akumulatorach, który powstał w odpowiedzi na cytat Dennisa na talk.tryitonline.net.

Waiting for someone to create an esolang called talk. 

. Język „Talk” ma 4 polecenia:

• 00 Jeśli akumulator ma wartość 0, ustaw akumulator na 0.
• 01 Jeśli akumulator ma wartość 0, ustaw akumulator na 1.
• 10 Jeśli akumulator ma wartość 1, ustaw akumulator na 0.
• 11 Jeśli akumulator ma wartość 1, ustaw akumulator na 1.

Wejście:

• Dane wejściowe można pobierać dowolną akceptowalną metodą wprowadzania danych, stosując nasze standardowe reguły we / wy.

• Są dwa wejścia, początkowa wartość akumulatora i program. Możesz połączyć te dwa dane wejściowe w jedno wejście lub podzielić dane wejściowe na prawidłowe polecenia (np. Biorąc je jako listę; np. [00, 01, 00]), Jeśli chcesz.

Wynik:

• Po zakończeniu wykonywania polecenia akumulator jest wysyłany niejawnie.

Zasady:

• Dane wejściowe mogą być pojedynczymi łańcuchami lub listami znaków.
• Jak to jest golf-golf, najkrótsza odpowiedź w bajtach wygrywa.
• Bierzemy cyfry lub ciągi / znaki.

  Przypadki testowe:

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

Liderów

Oto fragment kodu, który pozwala wygenerować zarówno zwykłą tabelę wyników, jak i przegląd zwycięzców według języka.

Aby upewnić się, że twoja odpowiedź się pojawi, zacznij od nagłówka, korzystając z następującego szablonu Markdown:

# Language Name, N bytes

gdzie Njest rozmiar twojego zgłoszenia. Jeśli poprawić swój wynik, to może zachować stare porachunki w nagłówku, uderzając je przez. Na przykład:

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

Jeśli chcesz umieścić w nagłówku wiele liczb (np. Ponieważ twój wynik jest sumą dwóch plików lub chcesz osobno wymienić kary za flagi tłumacza), upewnij się, że rzeczywisty wynik jest ostatnią liczbą w nagłówku:

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

Możesz także ustawić nazwę języka jako link, który pojawi się we fragmencie tabeli wyników:

# [><>](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> 

Galaretka , 3 bajty

y@/

Dane wejściowe to jedna lista: akumulator, a po nim pary.

Wypróbuj online!

Jak to działa

yTransliteration atom wykonuje; [a, b] yc zastępuje z b i wraca b jeśli A = C i C czy ≠ C .

y@/folds / zmniejsza dane wejściowe za ypomocą zamienionych argumentów, wykonując jedną transliterację na parę.

Python 3 , 43 bajty

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

Wypróbuj online!

Funkcja przyjmuje jako ciąg pojedynczy ciąg znaków, gdzie pierwszym znakiem jest stan początkowy, a reszta ciągu reprezentuje polecenia. To rozwiązanie można łatwo przenieść na inne języki, które lepiej obsługują wyrażenia regularne.

Trudność polega na udowodnieniu, że rozwiązanie daje właściwy wynik. Aby to zobaczyć, potrzebujemy dogłębnej analizy poleceń. Po pierwsze, widzimy, że polecenia mają następujące właściwości:

• Właściwość (1) : wydaje polecenia 00i 11zachowuje stan akumulatora.
• Właściwość (2) : wydaje polecenia 01i 10ustawia stan akumulatora na taki sam jak drugi bit, niezależnie od jego pierwotnego stanu.

Dlatego końcowy stan akumulatora to:

• Przypadek 1 : Jeśli nie ma polecenia 01lub 10komendy, stan końcowy jest taki sam jak stan początkowy.
• Przypadek 2 : W przeciwnym razie ostatni bit ostatniego polecenia 10lub 01polecenia.

Następnie pokażemy, że rozwiązanie daje poprawny wynik w obu przypadkach. Udowodnimy stwierdzenie stanu końcowego, 0a stan końcowy 1można udowodnić analogicznie. Jeśli stanem końcowym jest 0dane wejściowe, ma jedną z następujących postaci:

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

  W przypadku 1 ciąg wejściowy smusi zaczynać się od 2k+10, a następnie poleceń 11i 00. Wyeliminowanie 00s i 11s daje pojedynczy 0, który jest stanem końcowym.

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

  W przypadku 2 ciąg wejściowy kończy się 10poleceniem, po którym następuje zero lub więcej 00i 11s. Ten wzorzec jest równoważny 1następującym po nim 2k+10, a następnie zero lub więcej 11s i 00s. Eliminacja 00si 11s pozostawia ostatnią z 2k+1zer na końcu łańcucha, która reprezentuje stan końcowy.

W oparciu o powyższe, po wyeliminowaniu 00s i 11s jednocześnie w jednym pojedynczym przejściu ( 01001jest przeciw-przykładem, jeśli 00zostanie wyeliminowany w jednym przejściu, a następnie 11w drugim przejściu) z wejścia s, ostatni znak jest stanem końcowym. Dlatego udowodniono poprawność rozwiązania.

Perl 6 , 17 bajtów

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

Wypróbuj online!

Wykorzystuje „Można połączyć te dwa wejścia do jednego wejścia, jeśli lubisz” poprzez wejście jako wartość akumulatora połączonego z polecenia np 1,[00,11]jest 10011. Jeśli to nie jest w porządku, to tylko 5 dodatkowych bajtów, aby wziąć to jako f(accumulator, commands). Zwraca dopasowany obiekt, który można przymusić do łańcucha.

Wyjaśnienie:

{                }  # 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

Zasadniczo prace bo 00i 11polecenia zrobić dosłownie nic, podczas gdy 01i 10poleceń wystarczy ustawić akumulator do drugiej cyfry polecenia. Jeśli nie ma żadnych poleceń, zamiast tego przyjmuje początkową wartość akumulatora.

Zsh , 33 bajty

Lista znaków jest przekazywana jako argumenty, wartość początkowa akumulatora jest przekazywana jako stdin.

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

Wypróbuj online!

39 bajtów : jeśli polecenia muszą być pojedynczym ciągiem

Dane wejściowe są accumulator commandsargumentami.

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

Wypróbuj online!

Dla zabawy, oto 50 bajtowa rekurencyjna jedna linijka ( TIO ):

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

Python 3 , 52 bajty

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

Wypróbuj online!

Naprawiono niespójny typ zwrotu dzięki Chas Brown

Pobiera dane wejściowe jako dwa ciągi; akumulator i kod.

Brachylog , 11 9 bajtów

tġ₂≠ˢtt|h

Wypróbuj online!

Ponieważ minęło już tyle czasu, że mogłem zapomnieć o drukowaniu akumulatora po każdym poleceniu , sformułowałem znacznie mniej naiwne rozwiązanie z pewną inspiracją z odpowiedzi Joela Perla.

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

Stare rozwiązanie:

Brachylog , 18 16 bajtów

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

Wypróbuj online!

-2 bajty od zmiany formatu wejściowego.

JavaScript (ES6), 27 bajtów

Pobiera dane wejściowe jako (a)(code), gdzie kod jest listą 2-bitowych liczb całkowitych.

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

Wypróbuj online!

JavaScript (ES6),  47  40 bajtów

Pobiera dane wejściowe jako (a)(code), gdzie kod jest łańcuchem.

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

Wypróbuj online!

W jaki sposób?

Wszystkie możliwe przypadki zostały podsumowane poniżej. Są tylko dwa przypadki, w których musimy przełączyć akumulator$(a=0,x=01_2)$ i $(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 bajtów

Aż -7 bajtów z @Cowsquack realizując usunięcie wszystkich par działa tak samo.

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

Pobiera dane wejściowe konkatenowane razem na standardowe wejście. Zainspirowany odpowiedzią Jo Kinga Perla . Usuń końcowe pary Usuń wszystkie pary, a następnie uzyskaj ostatnią cyfrę.

Wypróbuj online! Wypróbuj online!

Retina 0.8.2 , 18 11 bajtów

(.)\1

!`.$

Wypróbuj online! Link zawiera przypadki testowe. Pobiera dane wejściowe skonkatenowane. Zaoszczędzono 6 bajtów dzięki @CowsQuack za zwrócenie uwagi na to, że usunięcie wszystkich podwójnych znaków, a następnie pobranie ostatniej pozostałej postaci działa, chociaż w rzeczywistości port oryginalnej odpowiedzi @ JoKing mógł zostać golfowany o 3 bajty nawet bez tej sztuczki.

Python 3 , 38 bajtów

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

Wypróbuj online!

Na podstawie rozwiązania Joela . Pobiera dane wejściowe jako listę początkowej wartości akumulatora (długość jeden ciąg), a następnie polecenia (długość dwa ciągi). Znajduje ostatnie polecenie o dwóch nierównych wartościach i wyświetla jego drugi znak.

Aby spadła do początkowej wartości akumulatora, gdy nie ma takich poleceń, robimy to, aby ciąg wartości początkowej o jednym znaku przeszedł test. Robimy to, sprawdzając, czy lista singletonów z ostatnim znakiem nie jest równa liście wszystkich poprzedzających znaków, która jest przekazywana przez dowolny ciąg długości-jeden lub długość-dwa ciąg z dwoma różnymi znakami.

Perl 5 -p , 37 33 bajtów

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

Wypróbuj online!

Dane wejściowe to dwa wiersze: pierwszy wiersz to sekwencja poleceń, drugi to akumulator.

Python 2 , 56 bajtów

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

Wypróbuj online!

Galaretka , 8 6 bajtów

EÐḟṪṪo

Wypróbuj online!

-2 bajty dzięki Nickowi Kennedy'emu, który poinformował mnie o zmianie zasad. (Jego proponowany golf EÐḟFȯṪwydaje się nieco mądrzejszy, ale ma taką samą długość jak moje poprzednie rozwiązanie minuss2 .) Format wejściowy przyjmuje teraz polecenia jako listę dwuznakowych ciągów, ale stopka testowa tłumaczy dla wygody stary format.

Przetłumaczone z mojego nowszego rozwiązania Brachylog.

Stara wersja:

Galaretka , 13 bajtów

ḢẎ⁼⁹a⁸o
s2ç@ƒ

Wypróbuj online!

Nie jestem w 100% pewien, że jest to poprawne, ale udaje się to we wszystkich trzech przypadkach testowych. Traktuje polecenia jako lewy argument, a początkowy akumulator jako prawy argument.

Haskell , 29 bajtów

Definiuje nienazwaną funkcję w pierwszym wierszu z typem (Foldable t, Eq b) => b -> t [b] -> b. Na potrzeby tego kodu golfa możemy utworzyć jego instancję, gdy Char -> [String] -> Charpierwszym argumentem jest akumulator, a drugim listą ciągów, przy czym każdy ciąg jest pojedynczą komendą.

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

Wypróbuj online!

Python, 111 bajtów

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

Nie golfił. EDYCJA: AHHH Ktoś mnie pobił!

Haskell , 36 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako miejsce, w f(string)(char)którym znak jest akumulatorem, a ciąg znaków jest listą poleceń.

05AB1E , 3 bajty

ø`:

Wypróbuj online!

Zip, zrzuć na stos, wymień.

Stax , 3 bajty

F|t

Uruchom i debuguj

Dla każdej instrukcji wykonaj tłumaczenie znaków.

Keg , -ir, 16 bajtów

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

Wypróbuj online!

Wyjaśnione:

1. Pobiera niejawne dane wejściowe i przesuwa wartość akumulatorów na dół

2. Powtórz następujące czynności (długość stosu - 1 podzielona przez 2) razy

2.1 Przesuń akumulator z powrotem na górę

2.2 Porównaj pod kątem równości z pierwszą częścią polecenia

2.2.1 Jeśli to prawda, wymień akumulator, w przeciwnym razie pop zastąp

Dane wejściowe są pobierane jako początkowa wartość acc połączona ze źródłem. Na przykład

010011000

• Pierwszy znak jest wartością acc
• Reszta to program

Bash , 58 40 bajtów

Dodaj jeden bajt dla pełnego programu: zmień fna $0.

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

58 bajtów Wypróbuj online!

Trójka zwróci false, gdy $1jest ustawiona na 0, ale ,1na końcu zapewnia, że ​​całość ((expression))zwróci true, z wyjątkiem błędu składniowego.

Po zużyciu wszystkich argumentów występuje błąd składniowy i rekurencja się kończy.

Węgiel drzewny , 16 bajtów

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

Wypróbuj online! Link jest do pełnej wersji kodu. Bierze osobne argumenty. Wyjaśnienie:

Ｆ⪪η²

Podziel instrukcje na pary cyfr i nałóż na nie pętlę.

Ｆ⁼θ§ι⁰

Jeśli akumulator jest równy pierwszej cyfrze ...

≔§ι¹θ

... następnie przypisz do niej drugą cyfrę.

θ

Wydrukuj akumulator na końcu pętli.

MATL , 13 12 bajtów

!dh2Ol4$Ys0)

Pobiera dane wejściowe jako macierz 2-kolumnową, gdzie każdy wiersz jest poleceniem i liczbą

Wypróbuj online! Lub sprawdź wszystkie przypadki testowe

Galaretka , 7 bajtów

fؽḂ⁹;Ṫ

Dyadic Link akceptujący program jako listę liczb całkowitych po lewej stronie i początkowy akumulator po prawej stronie, który daje liczbę całkowitą.

Wypróbuj online! Lub zobacz zestaw testowy

PHP , 38 bajtów

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

Wypróbuj online!

Zasadniczo port pomysł Jo Kinga .

Runiczne Zaklęcia , 28 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako ciąg bajtów oddzielonych spacjami (Runiczna nie rozumie list). Pierwszy bajt to stan początkowy, a co drugi bajt to program. Walidacja nie jest przeprowadzana (tzn. Zakłada, że ​​tylko prawidłowe programy są podawane jako dane wejściowe i nie ma znaczenia, jaką wartość stosuje się do reprezentowania 0i 1).

Montaż x86, 33 bajtów

Przyjmuje początkowy stan akumulatora w CL(liczba całkowita 0lub 1) i adres poleceń jako łańcuch ASCII zakończony zerem ESI. Pozostawia końcowy stan akumulatora w CL.

Skieruj instrukcję wywołania na offset 0x1B(etykieta interpretw Objaśnieniu).

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

Objaśnienie (Korzystanie ze składni Intel):

; 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 bajtów

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

Wypróbuj online!

Ogolono 4 bajty dzięki @ErikF!

Kryształ , 46 bajtów

Z poleceniami w Array(Tuple(Int32,Int32)), takimi jak [{0,0}, {0,1}, {0,0}].

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

Wypróbuj online!

Jest to dość proste do zrozumienia w bardziej czytelnej formie:

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

Funkcja zapętla każde polecenie, automatycznie rozpakowując wartości krotek do ci v. Następnie ustawia statewedług wzoru

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

do czego doszedłem głównie metodą prób i błędów. Po przetworzeniu wszystkich poleceń zwraca wartość stanu.

C (clang) , 68 62 bajtów

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

Wypróbuj online!

Pobiera wskaźnik na początek ciągu źródłowego, wskaźnik na koniec ciągu źródłowego (start + strlen (start)) i początkową wartość akumulatora.

Stara wersja (drukuje ASCII 48/49 dla 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 bajtów

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

Wypróbuj online!

Wejścia są inti IntStreamz 0, 1, 2i 3, które odpowiadają 00, 01, 10, 11z binarnym.