«Разговор» - это язык, основанный на барокко, который создан в ответ на цитату Денниса на talk.tryitonline.net.

Waiting for someone to create an esolang called talk. 

, Язык Talk имеет 4 команды:

• 00 Если аккумулятор равен 0, установите аккумулятор в 0.
• 01 Если аккумулятор равен 0, установите аккумулятор в 1.
• 10 Если аккумулятор равен 1, установите аккумулятор в 0.
• 11 Если аккумулятор равен 1, установите аккумулятор в 1.

Входные данные:

• Ввод может быть выполнен любым приемлемым методом ввода по нашим стандартным правилам ввода / вывода.

• Есть два входа, начальное значение аккумулятора и программа. Вы можете объединить эти два входа в один или разделить ваш вход в действительные команды (например, принимая их как список; например [00, 01, 00]), если хотите.

Вывод:

• По окончании выполнения команды аккумулятор выводится неявно.

Правила:

• Ввод может быть одной строкой или списком символов.
• Как это Код-гольф, самый короткий ответ, в байтах, выигрывает.
• Мы берем цифры или строки / символы.

  Тестовые случаи:

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

Leaderboards

Вот фрагмент стека, который генерирует как регулярную таблицу лидеров, так и обзор победителей по языкам.

Чтобы убедиться, что ваш ответ отображается, начните его с заголовка, используя следующий шаблон уценки:

# Language Name, N bytes

где Nразмер вашего представления. Если вы улучшите свой счет, вы можете сохранить старые результаты в заголовке, вычеркнув их. Например:

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

Если вы хотите включить в заголовок несколько чисел (например, потому что ваш результат равен сумме двух файлов или вы хотите перечислить штрафы за флаг интерпретатора отдельно), убедитесь, что фактический результат является последним числом в заголовке:

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

Вы также можете сделать название языка ссылкой, которая затем будет отображаться во фрагменте списка лидеров:

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

Желе , 3 байта

y@/

Вход представляет собой единый список: аккумулятор, за которым следуют пары.

Попробуйте онлайн!

Как это работает

yАтом совершает транслитерации; [a, b] yc заменяет a на b , поэтому возвращает b, если a = c, и c, если a ≠ c .

y@/складывает / уменьшает ввод с yпомощью замененных аргументов, выполняя одну транслитерацию на пару.

Python 3 , 43 байта

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

Попробуйте онлайн!

Функция принимает в качестве входных данных одну строку, где первый символ является начальным состоянием, а остальная часть строки представляет команды. Это решение может быть легко перенесено на другие языки, которые лучше поддерживают регулярные выражения.

Трудная часть состоит в том, чтобы доказать, что решение дает правильный результат. Чтобы увидеть это, нам нужен глубокий анализ команд. Во-первых, мы видим, что команды имеют следующие свойства:

• Свойство (1) : командует 00и 11сохраняет состояние аккумулятора.
• Свойство (2) : команды 01и 10делают состояние аккумулятора таким же, как второй бит, независимо от его исходного состояния.

Следовательно, конечное состояние аккумулятора:

• Случай 1 : если команда no 01или 10существует, конечное состояние совпадает с исходным состоянием.
• Случай 2 : в противном случае последний бит последней 10или 01команды.

Далее мы покажем, что решение дает правильный результат в обоих случаях. Мы докажем утверждение для конечного состояния, 0и конечное состояние 1может быть доказано аналогично. Если конечное состояние является 0входным, имеет одну из следующих форм:

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

  В случае 1 входная строка sдолжна начинаться с 2k+10, а затем 11и 00команды. Устранение 00s и 11s приводит к единственному результату 0, который является конечным состоянием.

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

  Для случая 2 входная строка заканчивается 10командой, за которой следует ноль или более 00и 11s. Этот шаблон эквивалентен 1последующим 2k+10, а затем нулю или более 11s и 00s. Устранение 00s и 11s оставляет последний из 2k+10 в конце строки, который представляет конечное состояние.

Исходя из всего вышесказанного, после устранения 00s и 11s одновременно за один проход ( 01001является контрпримером, если 00исключается за один проход, а затем 11на другом проходе) из ввода s, последний символ является конечным состоянием. Следовательно, правильность решения доказана.

Perl 6 , 17 байт

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

Попробуйте онлайн!

Использует преимущество «Вы можете объединить эти два входа в один вход, если хотите», взяв вход в качестве значения аккумулятора, объединенного с командами, например 1,[00,11]is 10011. Если это не хорошо, тогда это всего лишь 5 дополнительных байтов f(accumulator, commands). Возвращает объект соответствия, который может быть приведен к строке.

Объяснение:

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

В основном это работает , потому что 00и 11команды не делать буквально ничего, в то время как 01и 10команды просто установить аккумулятор на вторую цифру команды. Если команд нет, то вместо этого он принимает начальное значение аккумулятора.

Zsh , 33 байта

Список символов передается как аргументы, начальное значение аккумулятора передается как stdin.

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

Попробуйте онлайн!

39 байт : если команды должны быть одной строкой

Ввод в accumulator commandsкачестве аргументов.

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

Попробуйте онлайн!

Для забавы вот 50-байтовая рекурсивная однострочная ( TIO ):

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

Python 3 , 52 байта

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

Попробуйте онлайн!

Исправлен несовместимый тип возврата благодаря Chas Brown

Принимает ввод как две строки; аккумулятор и код.

Брахилог , 11 9 байт

tġ₂≠ˢtt|h

Попробуйте онлайн!

Поскольку прошло достаточно много времени, и я смог забыть идею печати аккумулятора после каждой команды , я сформулировал значительно менее наивное решение, вдохновленное ответом Джо Кинга на Perl.

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

Старое решение:

Брахилог , 18 16 байт

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

Попробуйте онлайн!

-2 байта от изменения формата ввода.

JavaScript (ES6), 27 байт

Принимает ввод как (a)(code), где код представляет собой список 2-битных целых чисел.

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

Попробуйте онлайн!

JavaScript (ES6),  47  40 байт

Принимает ввод как (a)(code), где код является строкой.

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

Попробуйте онлайн!

Как?

Все возможные случаи приведены ниже. Единственные два случая, когда нам нужно переключить аккумулятор$(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 байт

Целых -7 байт от @Cowsquack, осуществляя удаление всех пар работает хорошо.

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

Принимает входные данные, объединенные на стандартный ввод. Вдохновленный ответом Perl Джо Кинга . Удалите концевые пары. Удалите все пары, затем получите последнюю цифру.

Попробуйте онлайн! Попробуйте онлайн!

Сетчатка 0.8.2 , 18 11 байт

(.)\1

!`.$

Попробуйте онлайн! Ссылка включает в себя тестовые случаи. Принимает входные данные сцепленные. Сэкономили 6 байтов благодаря @CowsQuack за то, что он указал, что удаление всех удвоенных символов, а затем взятие последнего оставшегося символа работает, хотя на самом деле порт оригинального ответа @ JoKing мог быть забит на 3 байта даже без этого трюка.

Python 3 , 38 байт

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

Попробуйте онлайн!

Основано на решении Джоэла . Принимает input как список начального значения аккумулятора (строка длины одна), за которой следуют команды (строки длины две). Находит последнюю команду с двумя неравными значениями и выводит ее второй символ.

Чтобы сделать это падение до начального значения аккумулятора, когда таких команд нет, мы сделаем так, чтобы строка начального значения с одним символом прошла тест. Мы делаем это, проверяя, не совпадает ли одноэлементный список с последним символом со списком всех предыдущих символов, который передается любой строкой длиной одна или длиной две с двумя разными символами.

Perl 5 -p , 37 33 байта

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

Попробуйте онлайн!

Ввод - две строки: первая строка - последовательность команд, вторая - аккумулятор.

Python 2 , 56 байт

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

Попробуйте онлайн!

Желе , 8 6 байт

EÐḟṪṪo

Попробуйте онлайн!

-2 байта благодаря Нику Кеннеди, сообщившему мне об изменении правил. (Его предложенный гольф, EÐḟFȯṪкажется, несколько умнее, но имеет ту же длину, что и мое предыдущее решение, за исключением s2.) Формат ввода теперь принимает команды в виде списка двухсимвольных строк, но нижний колонтитул тестирования для удобства переводится из старого формата.

Перевод с моего более нового решения Brachylog.

Старая версия:

Желе , 13 байт

ḢẎ⁼⁹a⁸o
s2ç@ƒ

Попробуйте онлайн!

Я не уверен на 100%, что это правильно, но это удается во всех трех тестовых случаях. Принимает команды в качестве левого аргумента и начальный аккумулятор в качестве правого аргумента.

Haskell , 29 байт

Определяет безымянную функцию в первой строке с типом (Foldable t, Eq b) => b -> t [b] -> b . Для целей этого гольф-кода мы можем создать его экземпляр, Char -> [String] -> Charгде первый аргумент является аккумулятором, а второй - списком строк, где каждая строка представляет собой одну команду.

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

Попробуйте онлайн!

Python, 111 байт

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. РЕДАКТИРОВАТЬ: AHHH Кто-то избил меня до этого!

Haskell , 36 байт

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

Попробуйте онлайн!

Принимает ввод, f(string)(char)где символ является аккумулятором, а строка является списком команд.

05AB1E , 3 байта

ø`:

Попробуйте онлайн!

Застегните молнию, сбросьте в стек, замените.

Stax , 3 байта

F|t

Запустите и отладьте его

Для каждой инструкции выполните перевод символов.

Keg , -ir16 байт

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

Попробуйте онлайн!

Разъяснение:

1. Принимает неявный ввод и вправо сдвигает значение аккумуляторов вниз

2. Повторите следующее (длина стека - 1, деленное на 2) раз

2.1. Сдвиньте аккумулятор обратно наверх

2.2. Сравните на равенство с первой частью команды

2.2.1. Если это правда, замените аккумулятор, в противном случае вытолкните замену

Входные данные принимаются в качестве начального значения acc, объединенного с источником. Например

010011000

• Первый символ соответствует значению
• Отдых программный

Баш , 58 40 байт

Добавьте один байт для полной программы: измените fна $0.

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

58 байт. Попробуйте онлайн!

Тернар будет возвращать ложь, когда $1задано значение 0, но ,1в конце гарантирует, что целое ((expression))вернет истину, за исключением синтаксической ошибки.

Когда все аргументы использованы, возникает синтаксическая ошибка и рекурсия заканчивается.

Древесный уголь , 16 байт

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

Попробуйте онлайн! Ссылка на подробную версию кода. Принимает отдельные аргументы. Объяснение:

Ｆ⪪η²

Разделите инструкции на пары цифр и зациклите их.

Ｆ⁼θ§ι⁰

Если аккумулятор равен первой цифре ...

≔§ι¹θ

... затем назначьте ему вторую цифру.

θ

Напечатайте аккумулятор в конце цикла.

MATL , 13 12 байт

!dh2Ol4$Ys0)

Принимает входные данные в виде матрицы из 2 столбцов, где каждая строка представляет собой команду, а число

Попробуйте онлайн! Или проверьте все тестовые случаи

Желе , 7 байт

fؽḂ⁹;Ṫ

Диадическая ссылка, принимающая программу в виде списка целых чисел слева и начального аккумулятора справа, который дает целое число.

Попробуйте онлайн! Или посмотрите тестовый набор

PHP , 38 байт

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

Попробуйте онлайн!

В основном порт идеи Джо Кинга .

Рунические чары , 28 байт

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

Попробуйте онлайн!

Принимает ввод как последовательность разделенных пробелами байтов (Рунический не понимает списки). Первый байт - это начальное состояние, а каждый второй байт - это программа. Проверка не выполняется (то есть предполагается, что в качестве входных данных передаются только допустимые программы, и не важно, какое значение используется для представления 0и 1).

Сборка x86, 33 байта

Принимает начальное состояние аккумулятора в CL(целое 0или 1) и адрес команд в виде строки ASCII с нулевым символом в конце ESI. Оставляет конечное состояние аккумулятора в CL.

Направьте инструкцию вызова на смещение 0x1B(метка interpretв объяснении).

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

Пояснение (Использование синтаксиса 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 байт

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

Попробуйте онлайн!

Благодаря @ErikF, сброшено 4 байта!

Crystal , 46 байтов

С командами в Array(Tuple(Int32,Int32)), например [{0,0}, {0,1}, {0,0}].

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

Попробуйте онлайн!

Это довольно просто понять в более читаемой форме:

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

Функция проходит по каждой команде, автоматически распаковывая значения кортежей в cи v. Затем устанавливает stateпо формуле

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

который я пришел в основном методом проб и ошибок. Как только все команды были обработаны, он возвращает значение состояния.

C (лязг) , 68 62 байта

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

Попробуйте онлайн!

Принимает указатель на начало исходной строки, указатель на конец исходной строки (start + strlen (start)) и начальное значение аккумулятора.

Старая версия (печатает ASCII 48/49 для 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 байт

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

Попробуйте онлайн!

Входы являются intи IntStreamиз 0, 1, 2или 3, которые соответствуют 00, 01, 10, 11из двоичного файла.