"Talk" es un lenguaje baroquificado basado en acumuladores que se crea en respuesta a la cita de Dennis en talk.tryitonline.net.

Waiting for someone to create an esolang called talk. 

. El lenguaje "Talk" tiene 4 comandos:

• 00 Si el acumulador es 0, establezca el acumulador en 0.
• 01 Si el acumulador es 0, configure el acumulador en 1.
• 10 Si el acumulador es 1, establezca el acumulador en 0.
• 11 Si el acumulador es 1, configure el acumulador en 1.

Entrada:

• La entrada se puede tomar a través de cualquier método de entrada aceptable según nuestras reglas de E / S estándar.

• Hay dos entradas, el valor inicial del acumulador y el programa. Puede fusionar estas dos entradas en una entrada o dividir su entrada en comandos válidos (por ejemplo, tomarlos como una lista; por ejemplo [00, 01, 00]) si lo desea.

Salida:

• Al final de la ejecución de un comando, el acumulador se emite implícitamente.

Reglas:

• La entrada puede ser una sola cadena o lista de caracteres.
• Como se trata de código de golf , la respuesta más corta, en bytes, gana.
• Tomamos dígitos o cadenas / caracteres.

  Casos de prueba:

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

Tablas de clasificación

Aquí hay un fragmento de pila para generar una tabla de clasificación regular y una descripción general de los ganadores por idioma.

Para asegurarse de que su respuesta se muestre, comience con un título, usando la siguiente plantilla de Markdown:

# Language Name, N bytes

¿Dónde Nestá el tamaño de su envío? Si mejora su puntaje, puede mantener los puntajes antiguos en el título, tachándolos. Por ejemplo:

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

Si desea incluir varios números en su encabezado (por ejemplo, porque su puntaje es la suma de dos archivos o desea enumerar las penalizaciones de la bandera del intérprete por separado), asegúrese de que el puntaje real sea el último número en el encabezado:

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

También puede hacer que el nombre del idioma sea un enlace que luego aparecerá en el fragmento de la tabla de clasificación:

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

Jalea , 3 bytes

y@/

La entrada es una lista única: el acumulador, seguido de los pares.

Pruébalo en línea!

Cómo funciona

El yátomo realiza transliteración; [a, b] yc reemplaza a con b , por lo que devuelve b si a = c y c si a ≠ c .

y@/pliega / reduce la entrada ycon argumentos intercambiados, realizando una transliteración por par.

Python 3 , 43 bytes

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

Pruébalo en línea!

La función toma una sola cadena como entrada, donde el primer carácter es el estado inicial y el resto de la cadena representa los comandos. Esta solución se puede portar fácilmente a otros idiomas que tengan un mejor soporte para expresiones regulares.

La parte difícil es demostrar que la solución produce el resultado correcto. Para ver esto, necesitamos un análisis profundo de los comandos. En primer lugar, podemos ver que los comandos tienen las siguientes propiedades:

• Propiedad (1) : ordena 00y 11retiene el estado del acumulador.
• Propiedad (2) : ordena 01y 10hace que el estado del acumulador sea el mismo que el segundo bit, independientemente de su estado original.

Por lo tanto, el estado final del acumulador es:

• Caso 1 : si no0110 existe un comando o , el estado final es el mismo que el estado inicial.
• Caso 2 : de lo contrario, la última parte de la última10 o 01comando.

A continuación, mostraremos que la solución produce el resultado correcto en ambos casos. Probamos la declaración para el estado final 0y el estado final de 1puede probarse de manera análoga. Si el estado final es 0la entrada está en cualquiera de las siguientes formas:

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

  Para el caso 1 , la cadena de entrada sdebe comenzar con 2k+10s, seguida de 11y 00comandos. Eliminar 00sys 11produce un solo 0, que es el estado final.

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

  Para el caso 2 , la cadena de entrada termina con un 10comando, seguido de cero o más 00y 11s. Este patrón es equivalente a un 1seguido por 2k+10s, y luego cero o más 11sy 00s. La eliminación de 00sys 11deja atrás el último de los 2k+10 al final de la cadena, que representa el estado final.

Basado en todo lo anterior, después de la eliminación de 00s y 11es simultáneamente en una sola pasada ( 01001es un contra-ejemplo, si 00se elimina en una sola pasada y luego 11en otro pase) a partir de la entrada s, el último carácter es el estado final. Por lo tanto, se demuestra la exactitud de la solución.

Perl 6 , 17 bytes

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

Pruébalo en línea!

Aprovecha "Puede combinar estas dos entradas en una entrada si lo desea" tomando la entrada como el valor del acumulador concatenado con los comandos, por ejemplo, 1,[00,11]es 10011. Si esto no está bien, entonces solo son 5 bytes adicionales para tomarlo como f(accumulator, commands). Devuelve un objeto de coincidencia que se puede forzar a una cadena.

Explicación:

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

Básicamente, esto funciona porque los comandos 00y 11no hacen literalmente nada, mientras que los comandos 01y 10simplemente configuran el acumulador en el segundo dígito del comando. Si no hay comandos, toma el valor inicial del acumulador.

Zsh , 33 bytes

La lista de caracteres se pasa como argumentos, el valor inicial del acumulador se pasa como stdin.

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

Pruébalo en línea!

39 bytes : si los comandos deben ser una sola cadena

La entrada es accumulator commandscomo argumentos.

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

Pruébalo en línea!

Por diversión, aquí hay una línea recursiva de 50 bytes ( 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

Pruébalo en línea!

Se corrigió el tipo de retorno inconsistente gracias a Chas Brown

Toma entrada como dos cadenas; El acumulador y el código.

Brachylog , 11 9 bytes

tġ₂≠ˢtt|h

Pruébalo en línea!

Dado que ha pasado tanto tiempo que he podido olvidar la noción de imprimir el acumulador después de cada comando , he formulado una solución significativamente menos ingenua con algo de inspiración de la respuesta de Perl de Jo King.

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

Vieja solución:

Brachylog , 18 16 bytes

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

Pruébalo en línea!

-2 bytes de cambiar el formato de entrada.

JavaScript (ES6), 27 bytes

Toma entrada como (a)(code), donde el código es una lista de enteros de 2 bits.

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

Pruébalo en línea!

JavaScript (ES6),  47  40 bytes

Toma entrada como (a)(code), donde el código es una cadena.

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

Pruébalo en línea!

¿Cómo?

$(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

Un enorme -7 bytes de @Cowsquack al darse cuenta de que eliminar todos los pares también funciona.

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

Toma datos concatenados juntos en stdin. Inspirado por la respuesta de Perl de Jo King . Elimine los pares finales Elimine todos los pares, luego obtenga el último dígito.

Pruébalo en línea! Pruébalo en línea!

Retina 0.8.2 , 18 11 bytes

(.)\1

!`.$

Pruébalo en línea! El enlace incluye casos de prueba. Toma entrada concatenada. Ahorré 6 bytes gracias a @CowsQuack por señalar que eliminar todos los caracteres duplicados y luego tomar el último carácter restante funciona, aunque, de hecho, el puerto de la respuesta original de @ JoKing podría haber sido mejorado por 3 bytes incluso sin ese truco.

Python 3 , 38 bytes

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

Pruébalo en línea!

Basado en la solución de Joel . Toma la entrada como una lista del valor del acumulador inicial (cadena de longitud uno) seguido de los comandos (cadenas de longitud dos). Encuentra el último comando con dos valores desiguales y genera su segundo carácter.

Para hacer que esto caiga al valor del acumulador inicial cuando no hay tales comandos, hacemos que la cadena de valor inicial de un solo carácter pase la prueba. Lo hacemos comprobando si una lista singleton con el último carácter es desigual a una lista de todos los caracteres anteriores, que se pasa por cualquier cadena de longitud uno o cadena de longitud dos con dos caracteres diferentes.

Perl 5 -p , 37 33 bytes

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

Pruébalo en línea!

La entrada es de dos líneas: la primera línea es la secuencia de comandos, la segunda es el acumulador.

Python 2 , 56 bytes

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

Pruébalo en línea!

Jalea , 8 6 bytes

EÐḟṪṪo

Pruébalo en línea!

-2 bytes gracias a que Nick Kennedy me informó de un cambio de reglas. (Su propuesta de golf EÐḟFȯṪparece algo más inteligente pero tiene la misma longitud que mi solución anterior menos s2). El formato de entrada ahora toma los comandos como una lista de cadenas de dos caracteres, pero el pie de página de prueba se traduce del formato anterior por conveniencia.

Traducido de mi nueva solución Brachylog.

Versión antigua:

Jalea , 13 bytes

ḢẎ⁼⁹a⁸o
s2ç@ƒ

Pruébalo en línea!

No estoy 100% seguro de que esto sea correcto, pero tiene éxito en los tres casos de prueba. Toma los comandos como argumento izquierdo y el acumulador inicial como argumento derecho.

Haskell , 29 bytes

Define una función sin nombre en la primera línea con tipo (Foldable t, Eq b) => b -> t [b] -> b. Para los propósitos de este código de golf, podemos instanciarlo como Char -> [String] -> Chardonde el primer argumento es el acumulador y el segundo es una lista de cadenas con cada cadena como un solo comando.

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

Pruébalo en línea!

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

Sin golf. EDITAR: AHHH ¡Alguien me ganó!

Haskell , 36 bytes

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

Pruébalo en línea!

Toma datos como f(string)(char)donde el personaje es el acumulador y la cadena es la lista de comandos.

05AB1E , 3 bytes

ø`:

Pruébalo en línea!

Zip, volcar en la pila, reemplazar.

Stax , 3 bytes

F|t

Ejecutar y depurarlo

Para cada instrucción, realice la traducción de caracteres.

Barrilete , -ir, 16 bytes

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

Pruébalo en línea!

Explicado:

1. Toma la entrada implícita y la derecha desplaza el valor de los acumuladores hacia abajo

2. Repita lo siguiente (longitud de la pila - 1 dividido por 2) veces

2.1. Mueva el acumulador de regreso a la parte superior

2.2. Compare por igualdad con la primera parte del comando

2.2.1. Si es cierto, reemplace el acumulador, de lo contrario, haga estallar el reemplazo

La entrada se toma como el valor acc inicial concatenado con la fuente. P.ej

010011000

• El primer carácter es el valor acc
• El descanso es programa

Bash , 58 40 bytes

Agregue un byte para un programa completo: cambie fa $0.

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

58 bytes ¡ Pruébelo en línea!

El ternario devolverá falso cuando $1se establece en 0, pero ,1al final asegura que todo ((expression))volverá verdadero, excepto un error de sintaxis.

Cuando se consumen todos los argumentos, se produce un error de sintaxis y finaliza la recursividad.

Carbón , 16 bytes

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

Pruébalo en línea! El enlace es a la versión detallada del código. Toma argumentos separados. Explicación:

Ｆ⪪η²

Divide las instrucciones en pares de dígitos y repítelos.

Ｆ⁼θ§ι⁰

Si el acumulador es igual al primer dígito ...

≔§ι¹θ

... luego asignarle el segundo dígito.

θ

Imprima el acumulador al final del ciclo.

MATL , 13 12 bytes

!dh2Ol4$Ys0)

Toma la entrada como una matriz de 2 columnas donde cada fila es un comando y un número

Pruébalo en línea! O verificar todos los casos de prueba

Jalea , 7 bytes

fؽḂ⁹;Ṫ

Un enlace diádico que acepta el programa como una lista de enteros a la izquierda y el acumulador inicial a la derecha que produce un entero.

Pruébalo en línea! O ver un conjunto de pruebas

PHP , 38 bytes

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

Pruébalo en línea!

Básicamente puerto de la idea de Jo King .

Encantamientos rúnicos , 28 bytes

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

Pruébalo en línea!

Toma la entrada como una serie de bytes separados por espacios (Runic no entiende las listas). El primer byte es el estado inicial y cualquier otro byte es el programa. No se realiza ninguna validación (es decir, se supone que solo se proporcionan programas válidos como entrada y no le importa qué valor se usa para representar 0y 1).

Asamblea x86, 33 bytes

Toma el estado inicial del acumulador en CL(entero 0o 1) y la dirección de los comandos como una cadena ASCII terminada en cero ESI. Deja el estado final del acumulador en CL.

Apunte la instrucción de llamada al desplazamiento 0x1B(etiqueta interpreten la Explicación).

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

Explicación (Uso de la sintaxis de 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 bytes

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

Pruébalo en línea!

¡4 bytes eliminados gracias a @ErikF!

Cristal , 46 bytes.

Con comandos en un Array(Tuple(Int32,Int32)), como [{0,0}, {0,1}, {0,0}].

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

Pruébalo en línea!

Es bastante simple de entender en una forma más legible:

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

La función recorre cada comando, desempacando automáticamente los valores de tupla en cy v. Luego establece el statepor la fórmula

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

a lo que llegué principalmente por prueba y error. Una vez que se han procesado todos los comandos, devuelve el valor del estado.

C (clang) , 68 62 bytes

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

Pruébalo en línea!

Lleva un puntero al inicio de la cadena de origen, un puntero al final de la cadena de origen (inicio + strlen (inicio)) y el valor del acumulador inicial.

Versión anterior (imprime ASCII 48/49 para 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 bytes

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

Pruébalo en línea!

Las entradas son una inty una IntStreamde 0, 1, 2o 3, que corresponden a 00, 01, 10, 11de binario.