Codegolf — Добавить И Стереть

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

• Вы поддерживаете строку, которая вначале пуста.
• Если следующий входной символ находится в строке, удалите его из строки.
• Если следующего входного символа нет в строке, добавьте его в строку.

Выведите окончательное состояние строки.

Вы можете смело предположить, что входные данные состоят как минимум из одного символа (т. е. непустые), но нет никакой гарантии, что выходные данные не пусты.

Псевдокод (не стесняйтесь играть в гольф):

 
 ABCDBCCBE -> ADCBE
ABCXYZCABXAYZ -> A
aAABBbAbbB -> aAbB
GG -> (empty)
 
 

Ввод соответствует регулярному выражению ^[A-Za-z]+$ .

Примеры тестовых случаев:

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

Побеждает самая короткая программа на каждом языке!

Дополнительный (Необязательно): Пожалуйста, объясните, как работает ваша программа. Спасибо.

#код-гольф #строка

Хаскелл, 44 42 байта

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 utf8ToInt(0)=="" 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Попробуйте онлайн! Редактировать: -2 байта благодаря Zgarb!

Объяснение:

Вторая строка определяет функцию 0 which takes a string FALSE и персонаж F and performs either the remove or append. This is achieved by function(s) { for(i in utf8ToInt(s)) # convert string to codepoints and iterate over it F=c(F[F!=i], # remove duplicates and append i*!i%in%F) # 0 if in F, i otherwise intToUtf8(F) # collapse from codepoints to string } выявляя каждое возникновение function(s){for(i in utf8ToInt(s))F=c(F[F!=i],i*!i%in%F);intToUtf8(F)} в s -> s.join( "", s.chars() .mapToObj(c -> (char) c + "") .filter(c -> s.replaceAll("[^" + c + "]", "").length() % 2 < 0) .distinct() .sorted((c, d) -> s.lastIndexOf(c) - s.lastIndexOf(d)) .toArray(String[]::new) ) , в результате чего получается строка s->s.join("",s.chars().mapToObj(c->(char)c+"").filter(c->s.replaceAll("[^"+c+"]","").length()%2>0).distinct().sorted((c,d)->s.lastIndexOf(c)-s.lastIndexOf(d)).toArray(String[]::new)) . If s->{String o="";for(char c:s.toCharArray())o=o.indexOf(c)<0?o+c:o.replace(c+"","");return o;} не происходит в String , then String равно s/(.)(.*?)\1/$2/&&redo and -p возвращает исходную строку с a=arg(1) s='' do while a>'' b=right(a,1) if countstr(b,a)//2 then s=b||s a=changestr(b,a,'') end say s appended. Otherwise (i==s.rfind(c)) возвращает пустую строку, и возвращается только отфильтрованная строка.

(s.count(c)%2) == 0 is an anonymous function which takes a string and adds one character after the other the initially empty string lambda s:''.join(c*(s.count(c)%2)*(i==s.rfind(c))for i,c in enumerate(s)) с функцией { /* Anonymous function */ a=[] /* initialize a */ /* For each character _1 in the stream: */ a-=_ if[_1 in a] /* Remove it from a if a contains it */ else a+=_1; /* Otherwise append it to a */ a /* Push characters in a to the stream */ } .

Желе, 3 байта

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

Полная программа.

Дж, 21 19 байт

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

{_xD_Qf%/QT2Q - makes a table of equality of the characters in the string:

.join - sum of each row by base 1 conversion (how many times the letter occurs)

->s{s.reverse.uniq.select{|c|s.count(c)%2>0}.reverse} - reverse, then apply nub sieve (is the char unique) and reverse again. Thus I find the last occurrences of the characters in the string:

(,⍨~∩)/∘⊖ - multiplies the count by 1 for the last position of the character in the sring, by 0 otherwise, computed by the above {(,⍨~∩)/⍣(≢⍵)⊖⍵}

i&Xo@ - modulo 2 (sets to 0 the positions of the chars that have even count):

_./:("")((?,y)=>if(?toSet y)?filter(y!=)else? +y) - copy the right argument left arg. times (~ reverses the places of the args)

;£A=øX ?AkX:ApX

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

Мозговой трах, 95 байт

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

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

Хаскелл, 47 байт

Еще один смахнул пыль благодаря Брюсу Форте.

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

Принимает список строк.

Симметричная разница раздражает...

сетчатка, 16 байт

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

МАТЛ, 6 байт

Не работает в среде TIO, но отлично работает в реализации MATLAB, и благодаря свежему патчу вы можете попробовать его. МАТЛ Онлайн

append/3 equals delete/3 , или симметричная разница, которая делает именно то, что требует задача. Остальное просто перебирает ввод append_and_eraze([], Output, Output). append_and_eraze([I | Input], Interim, Output) :- delete(Interim, I, Filtered), ( Interim = Filtered -> append(Interim, [I], Interim1), append_and_eraze(Input, Interim1, Output) ; append_and_eraze(Input, Filtered, Output) ). and starting with an empty string by concatenating the entire stack which is empty at the start (thanks Luis Mendo).

К (нгн/к), 21 9 байт

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

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

• ReplaceRepeated count the number of times each distinct character occurs in the string (reversing the order)
• //. filter down to where the character appears an odd number of times, then reverse

д, 38 байт

Р, 92 84 77 байт

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

-15 байт благодаря Джурио

Объяснение

Джурио предоставил отличный ответ R, избегая let f = s=>[...s].map(c=>s=s.match(c)?s.split(c).join``:s+c,s='')&&s console.log(f("ABCDBCCBE")) // -> ADCBE console.log(f("ABCXYZCABXAYZ")) // -> A console.log(f("aAABBbAbbB")) // -> aAbB console.log(f("GG")) // -> (empty) loop -- as R programmers instinctively do as a rule (myself included). Here's an R answer that utilizes a s=>[...s].map(c=>s=s.match(c)?s.split(c).join``:s+c,s='')&&s цикл (и при этом сохраняет несколько байтов).

• lambda s:reduce(lambda a,c:a.replace(c,'')+c[c in a:],s) -- assign the input into the variable cat(setdiff(unique(y,,T),names(z[!z%%2])),sep="")
• setdiff(unique(y,,T),names(z[!z%%2])) -- create an empty string in a variable called names(z[!z%%2])
• unique(y,,T) -- for every character z in z=table(y<-el(strsplit(scan(,""),"")))
• y -- assign to y<-el(strsplit(scan(,""),"")) каждый элемент scan(,"") that is not equal to z=table(y<-el(strsplit(scan(,""),"")));cat(setdiff(unique(y,,T),names(z[!z%%2])),sep="") , добавление y=el(strsplit(scan(,""),""));cat(unique(y[colSums(outer(y,y,"=="))%%2>0],,T),sep="") if el еще не был в unlist
• library(methods) -- print the elements of methods без пространства между ними

Примечание

Если вы нажмете ссылку TIO выше, вы найдете в заголовке el() ; this is to deal with the error Джурио опытный относительно library(methods) function -- the function is provided by the y Пакет, который в любой версии R, который я использовал, загружается по умолчанию, но по какой-то причине не TIO. Если cat(y,sep='') is removed from the header and y заменяется на i , I gain four bytes, but so would Джурио, в результате чего количество наших байтов составит 96, 88 и 99 соответственно.

Р, 84 байта

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

Другое решение, но есть лучше Р ответы здесь.

Р, 88 байт

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

Спасибо Джузеппе за -7 байт!

Есть более короткий ответ от Duckmayr.

1. y read input from stdin.
2. y split input by characters and save as y=c(y[y!=i],if(!i%in%y)i) .
3. x compute frequencies of each character and save resulting table as i ;
4. for(i in el(strsplit(x,''))) take unique characters from the right side.
5. y select only even counts and extract names.
6. y=''; remove characters with even count.
7. x print the output.

Питон 2, 56 байт

-2 байта благодаря xnor. -3 байта благодаря ovs.

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

Буквально только что забил псевдокод. :П

JavaScript (ES6), 60 байт

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

APL+WIN, 19 байт

Логика аналогична решению Галена J.

Язык Wolfram (Математика), 36 байт

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

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

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

Использование |&2! (alias #'=|: ), чтобы найти два повторяющихся символа и удалить оба, пока повторяющиеся символы не исчезнут. Если символ встречается более двух раз, Mathematica всегда удалит первые два вхождения. Таким образом, если персонаж встречается нечетное количество раз, выживет всегда его последний экземпляр.

Пролог 81 байт

Необфусцированная версия:

1. setxor ensures that its third argument unifies with its first argument, with all instances of second argument removed from it.
2. Если они совпадают, мы добавляем элемент (он не был удален).
3. X~ as per its name, appends an element to list.
4. Мы повторяемся над элементами ввода, пока не достигнем vi"@X~ (empty list), at which point the intermediate result will unify with desired result.

Тест:

Некоторые Прологи обрабатывают строки в двойных кавычках как списки, SWI можно настроить на то же самое, но для простоты я использовал import Data.List foldl1(\x y->union(x\\y)$y\\x) to format output nicely.

Perl 5, 28 + 2 (-пФ) = 30 байт

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

Япт ,[<<<[[->+>>>+<<<<]>>>[-<+<->>]<<[[-]<]>[[-]>>[-]>[[-<+>]>]<<[<]<<]<<]<[->>>>[-]<<<]>>>>[->+<]>>[>]>>,]<<<[.<] , 15 bytes

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

Скала, 75..64 49 байт

-22 байта благодаря пользователь!

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

Алиса, 9 байт

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

Объяснение

По сути порт Ответ Эрика. Если не считать небольшого перенаправления IP, код на самом деле просто:

что делает:

АПЛ (Диалог), 16 байт

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

Если бы ошибки были разрешены, это было бы 9 байт:

Пиф, 15 байт

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

Руби, 53 байта

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

Ввод и вывод представляют собой массив символов. Тестовые вызовы кода ]c =: 1#. b 3 2 2 2 2 2 2 3 2 2 3 2 2 and 1#. для удобства.

Объяснение

Использует тот факт, что буквы в результирующей строке появляются нечетное количество раз и в порядке справа налево.

Пиф, 13 байт

Принимает входные данные в виде списка символов. Проверьте это!

Рода, 34 байта

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

Это прямой перевод псевдокода. Он рассматривает ввод и вывод как потоки символов.

Объяснение:

Питон 3, 73 байта

Не самый короткий, но мне нравится такой подход.

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

Проходит по строке, сохраняя только те символы, где:

• foldl(#)"" - The character appears an even number of times.
• [x|z==s] - The current index is the last appearance of the character in question.

РЕКСС, 102 байта

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

Как это работает: возьмите самую правую букву, посмотрите, является ли количество вхождений четным или нечетным (что также удваивается как значение истинности), и, если нечетное, добавьте ее в выходную строку. Затем удалите все вхождения буквы из входной строки. Повторяйте до тех пор, пока ввод не будет исчерпан.

Перл 5, 22 + 1 ( z++[x|z==s] ) = 23 bytes

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

Java 8, 93 байта

Лямбда из z to s . Просто реализация псевдокода в вопросе.

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

Java 8, 182 байта

Вот еще одна лямбда того же типа, использующая потоки! Наверное, это более эффективно.

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

Негольфед

Р, 70 байт

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

Джурио посоветовал мне опубликовать это решение; ответ Джурио можно найти здесь.

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

Одно важное наблюдение состоит в том, что x is initialized to s или (#) and foldl(#)"" s#x|z<-filter(/=x)s=z++[x|z==s] , так что это будет успешным для пустой строки, а также для правильного свертывания кодовых точек.