Вхідні дані

Рядок , яка містить не більше одного з кожних з букв A, Bі C. Вони можуть бути в будь-якому порядку. Порожній рядок є коректним введенням.

^{Примітка. У попередній версії цього виклику LEJзамість ABCних використовувались букви, і вони можуть все ще використовуватися при бажанні.}

Вихідні дані

Рядок з A, B, Cбукв , які не були присутні на вході. Вони можуть бути в будь-якому порядку.

Якщо виведенням буде порожній рядок, то просто не даючи виводу є дійсним, якщо це має сенс для вашої реалізації. (наприклад, вам не потрібно насправді дзвонити printна порожню рядок.)

Приклади

• Якщо вхід є, Bто вихід повинен бути CAабо таким, або ACяк, Aі Cне є у вході.
• Якщо вхід є порожнім рядком, то вихід повинен бути ABCабо будь-яка перестановка, оскільки жодна з трьох букв не присутня у введенні.
• Якщо вхід є, CABто на виході повинен бути порожній рядок, оскільки всі три букви присутні у введенні.

Випробування

Є так мало випадків введення, що ми можемо перерахувати всі:

in -> out1 | out2 | out3 | ...
ABC -> ""
ACB -> ""
BCA -> ""
BAC -> ""
CAB -> ""
CBA -> ""
AB -> C
AC -> B
BC -> A
BA -> C
CA -> B
CB -> A
A -> BC | CB
B -> CA | AC
C -> AB | BA
"" -> ABC | ACB | BCA | BAC | CAB | CBA

Всі дійсні виходи для кожного введення задані, розділеними |'s. ""являє собою порожній рядок

Оцінка балів

Виграє найкоротший код у байтах. Але майте на увазі, що ви можете отримати більше визнання для вирішення проблеми унікальним способом, а не коротким способом;)

Python 3, 29 27 22 байт

lambda x:{*"ABC"}-{*x}

-2 байти завдяки Джонатану Аллану

-5 байт завдяки Роду

Желе , 4 байти

Завдяки @DuctrTape за пропозицію про зміну та наявність "ABC" у словнику Jelly.

“ḃ»ḟ

Спробуйте в Інтернеті!

“ḃ»шукає запис "ABC" у словнику Джеллі, ḟ- це діада, що відкидає файли, яка відкидає символи, знайдені у вхідному списку зі списку символів. Результат неявно друкується.

Для нижньої версії словник, який використовується словником, може бути або "abac" ( “c»), або "abaca" ( “i»).

Коли викликом було "LEJ", у верхньому регістрі можна досягти лише 6 байтів, оскільки жодного запису словника не існує з цим набором символів, що дозволяє нам створити список символів “LEJ”(або перестановку їх).

Нижній варіант вийшов з ладу краще на 5 байт через наявність слова "jell" ( “ẎṄ»).

Bash + coreutils, 15 байт

tr -d x$1<<<LEJ

Спробуйте в Інтернеті!

Я хотів би опустити x, але тоді tr -dб не було аргументу, коли рядок введення порожній. (Це xне приносить ніякої шкоди, оскільки в цьому рядку LEJ немає жодного символу x.) Я б зазвичай писав tr -d "$1", але роблю це так, як я це робив, на один байт коротший від цього.

Сітківка , 14 байт

Кількість байтів передбачає кодування ISO 8859-1.

$
¶ABC
D`.
A1`

Спробуйте в Інтернеті!

Пояснення

$
¶ABC

Додайте другий рядок, що містить ABC.

D`.

Дублюйте символи. Це видаляє кожен символ із другого рядка, який уже з’являється у першому рядку.

A1`

Відмовтеся від першого рядка.

05AB1E , 6 4 байти

Збережено 2 байти, використовуючи нову žRкоманду, як запропонував Кевін Круїссен

žRsм

Спробуйте в Інтернеті! або як тестовий набір

Пояснення

   м  # remove the character of
  s   # the input
žR    # from the string "ABC"

Java 7, 73 58 байт

String c(String s){return"EJL".replaceAll("[ "+s+"]","");}

15 байт збережено завдяки @KritixiLithos .

Код тесту:

Спробуйте тут.

class M{
  static String c(String s){return"EJL".replaceAll("[ "+s+"]","");}

  public static void main(final String[] a) {
    System.out.print("LEJ=" + c("LEJ") + "; ");
    System.out.print("LJE=" + c("LJE") + "; ");
    System.out.print("EJL=" + c("EJL") + "; ");
    System.out.print("ELJ=" + c("ELJ") + "; ");
    System.out.print("JLE=" + c("JLE") + "; ");
    System.out.print("JEL=" + c("JEL") + "; ");
    System.out.print("LE=" + c("LE") + "; ");
    System.out.print("LJ=" + c("LJ") + "; ");
    System.out.print("EJ=" + c("EJ") + "; ");
    System.out.print("EL=" + c("EL") + "; ");
    System.out.print("JL=" + c("JL") + "; ");
    System.out.print("JE=" + c("JE") + "; ");
    System.out.print("L=" + c("L") + "; ");
    System.out.print("E=" + c("E") + "; ");
    System.out.print("J=" + c("J") + "; ");
    System.out.print("\"\"=" + c(""));
  }
}

Вихід:

LEJ=; LJE=; EJL=; ELJ=; JLE=; JEL=; LE=J; LJ=E; EJ=L; EL=J; JL=E; JE=L; L=EJ; E=JL; J=EL; ""=EJL

Власне , 7 байт

"LEJ"-Σ

Спробуйте в Інтернеті!

"LEJ"-Σ
"LEJ"    the letters
     -   exclude letters present in input
      Σ  concatenate

Pyth, 5 байт

-"ABC

Перевірте це тут

Розширюється на

-"ABC"Q
-       # Filter on absence
 "ABC"  # Literal string 
      Q # Input

MATL, 10 8 байт

Збережено два байти завдяки Suever. setdiffкоротше, ніж ismember.

'ABC'iX-

Спробуйте тут!

Пояснення

'ABC'      % Create a string literal
     i     % User input
      X-   % Set difference, between two elements of the stack 

Так, це могло бути тривіальним завданням, але я цілком задоволений, що мені вдалося вирішити це з MATL все самостійно. _{Я ніколи не говорив, що це найкоротше рішення ... Дякую Сьювер!}

JavaScript ES6, 41 39 38 байт

s=>eval(`'ABC'.replace(/[${s}]/g,'')`)

Збережено 2 байти завдяки Арнольду. Збережено 1 байт завдяки LarsW.

f=s=>eval(`'ABC'.replace(/[${s}]/g,'')`)

console.log(f("AB"));

V , 10 байт

CLEJ<ESC>Ó[<C-r>"]

Спробуйте в Інтернеті!

Hexdump:

00000000: 434c 454a 1bd3 5b12 225d                 CLEJ..[."]

Пояснення

Введення знаходиться в першому рядку буфера. Тож щось на кшталт:

EL

і курсор знаходиться на першому символі. Таким чином, ми видаляємо вхід (який зберігає його в реєстрі ") і вводимо режим вставки одночасно, використовуючи C.

Опинившись у режимі вставки, символи LEJвставляються, після чого я повертаюсь у звичайний режим за допомогою <ESC>.

Тепер ми повинні видалити всі символи, які присутні у вводі.

Ó                       " remove every
 [<C-r>"]               "  character that appears in the input
                        " synonym of Vim's :s/[<C-r>"]//g

І як тільки це станеться, нам залишаються букви, що залишилися в буфері.

Рубі, 27 19 18 байт

->s{"ABC".tr s,""}

-1 байт завдяки Мартіну Ендеру

Haskell , 27 26 байт

import Data.List
("ABC"\\)

Спробуйте в Інтернеті! Використання: ("ABC"\\) "CB"урожайність "A".

\\є оператором заданої різниці, круглі дужки утворюють так званий розділ, який є короткою формою для lamda (\x -> "ABC" \\ x).

Без імпорту: (те саме число байтів завдяки @nimi)

f x=[c|c<-"ABC",all(/=c)x]

Спробуйте в Інтернеті! Використання: f "CB"урожайність "A".

Інші підходи:

f x=filter(`notElem`x)"ABC"
(`filter`"ABC").flip notElem
f x=[c|c<-"ABC",notElem c x]

GNU sed , 34 29 байт

Включає +1 для -r

-5 завдяки Digital Trauma

s/^/ABC/
:
s/(.)(.*)\1/\2/
t

Спробуйте в Інтернеті!

Чомусь TIO не працює з розширеним регулярним виразом ( -r), тому мені довелося загортати його в BASH.

s/^/ABC/        # put ABC at the beginning of the string
:               # nameless label
s/(.)(.*)\1/\2/ # remove a duplicate letter
t               # branch to the nameless label if something changed

Мозок-Флак , 120 + 3 = 123 байти

<>((((((((()()){}){}){}){}){}())())())<>{({}(<()>)){(([({})]<>({}))){(<({}<>{})<>([{}]{}<>)>)}{}}{}{}<>{}{({}<>)<>}{}}<>

Він працює з -cпрапором, додаючи 3 байти

Спробуйте в Інтернеті!

Пояснення

В цілому ця програма в значній мірі робить набір правого стека мінус лівий стек, причому правий стек ініціалізований до, CBAа лівий стек ініціалізований на вхід.

Анотований код

<>((((((((()()){}){}){}){}){}())())())<> # Switch to right stack, push CBA, switch back
{({}(<()>)){(([({})]<>({}))){(<({}<>{})<>([{}]{}<>)>)}{}}{}{}<>{}{({}<>)<>}{}}<>

Ще пояснення:

Математика, 37 байт

Complement@@Characters@{"ABC",#}<>""&

Морква , 15 байт, неконкурентна

неконкурентований через помилку, яку я знайшов із поверненими сірниками та порожніми рядками. Тому я це просто виправив

ABC^//[^#]/gS""

Спробуйте в Інтернеті! (Копіювати Вставити)

Пояснення

ABC^                   //sets stack (just a string, not an array) to "ABC"
    /                  //return match(es) of:
     /[^#]/g           // `#` is the placeholder for the input
                       // so effectively, this returns the matches of any character not present in the input
                       // applied on the stack
                       //this returns an array of all the matches of the regex
            S""        //join all the elements of the array using "", the empty string

CJam , 7 байт

"ABC"l-

Спробуйте в Інтернеті! (Як тестовий набір, відокремлений лінійною подачею.)

MATLAB / Октава, 20 байт

@(x)setdiff('ABC',x)

Демонстрація в Інтернеті

Октава, 29 27 байт

Збережено два байти завдяки Suever, створивши рядок 'ABC'всередині ismemberвиклику.

@(s)x(~ismember(x='ABC',s))

Ми використовуємо ~ismember()як логічні показники до змінної x. Своєрідна річ у тому, що ми створюємо x='ABC' всередині ismember , а не перед нею. Порядок Октава бачить це:

@(s)                        % Anonymous function that takes a string s as input
                x='ABC'     % Create a variable x with the characters 'ABC'
       ismember(x='ABC',s)  % True for elements that are in both x and s. False otherwise.
      ~ismember(x='ABC',s)  % Negate this, so that we keep the characters that aren't in s
@(s)x(~ismember(x='ABC',s)) % Use the logical vector as indices to x and return the result

C #, 50 байт 32 байт 47 байт 35 байт

де iвхід:

i=>string.Join("","ABC".Except(i));

Повна програма перевірена на LINQPad

void Main()
{
    var testcases = new Dictionary<string,string[]>
    {
        ["ABC"] = new[]{""},
        ["ACB"] = new[]{""},
        ["BCA"]  = new[]{""},
        ["BAC"]  = new[]{""},
        ["CAB"]  = new[]{""},
        ["CBA"]  = new[]{""},
        ["AB"] = new[]{"C"},
        ["AC"] = new[]{"B"},
        ["BC"] = new[]{"A"},
        ["BA"] = new[]{"C"},
        ["CA"] = new[]{"B"},
        ["CB"] = new[]{"A"},
        ["A"] = new[]{"BC","CB"},
        ["B"] = new[]{"CA","AC"},
        ["C"] = new[]{"AB","BA"},
        [""] = new[]{"ABC","ACB","BCA","BAC","CAB","CBA"},
    };

    var output = "";

    foreach(var input in testcases.Keys)
    {
        var expect = testcases[input];
        var actual = GetResult(input);
        if(!expect.Contains(actual)) throw new ApplicationException($"{input}:{string.Join(",",expect)}:{actual}");
        output+=$"{input} -> {actual}\n";
    }
    output.Dump();
}

// Define other methods and classes here
private string GetResult(string input){
    return string.Join("","ABC".Except(i));
}

Результати тесту

ABC ->
ACB ->
BCA ->
BAC ->
CAB ->
CBA ->
AB -> C
AC -> B
BC -> A
BA -> C
CA -> B
CB -> A
A -> BC
B -> AC
C -> AB
-> ABC

APL, 7 байт

'ABC'∘~

~встановлюється віднімання, ∘є складанням, тому це функція, яка повертає ABCмінус символів у своєму введенні.

Медузи , 9 байт

PNI
 "ABC

Спробуйте в Інтернеті!

У більш звичайних позначеннях ця програма перекладається на:

P(N("ABC", I))

I- це вхід, Nє різницею списку та Pє вихідним.

Perl 5,9,9 79 38 37 35 байт

perl -le '$_="ABC";eval"y/$ARGV[0]//d";print'

(не впевнений у правилах підрахунку тут - включені перемикачі, але не команда perl).

> perl -le '$_="ABC";eval"y/$ARGV[0]//d";print' AB
C
> perl -le '$_="ABC";eval"y/$ARGV[0]//d";print'
ABC

(скориговане підрахунок після коментаря до рішення нижче)

Лист звичайний, 71 байт

Найбільший запис на даний момент, але принаймні читабельний ;-)

(lambda(s)(coerce(set-difference'(#\A #\B #\C)(coerce s'list))'string))

Japt , 13 12 байт

"ABC"r"[{U}]

Збережено байт завдяки ETHproductions.

Спробуйте в Інтернеті!

Pyth, 4 байти

-<G3

Спробуйте тут!

 <G3 -  alphabet[:3]
-    - input-^

Зверніть увагу: для цього використовується малі регістри, які можуть бути неприйнятними

C, 53 байти

b=64;c(char*a){while(b<67)putchar(++b*!strchr(a,b));}

Якщо неявні декларації string.h заборонено, додайте 72 байти#include<string.h>

Спробуйте в Інтернеті!

або щось трохи веселіше в 75 байт

a[128]={};b=64;c(char*d){while(*d)++a[*d++];while(b<67)putchar(b*!a[++b]);}

Спробуйте в Інтернеті!

Пакетна, 101 байт

@set/ps=
@for %%c in (L E J)do @call set d=%%s:%%c=%%&call:c %%c
:c
@if "%d%"=="%s%" set/pd=%1<nul

Здійснює вхід на STDIN, а це означає, що %1він порожній, коли код потрапляє в підпрограму помічника і нічого не друкується.

R , 47 40 байт

gsub(paste0("[",scan(,""),"]"),"","ABC")

Спробуйте в Інтернеті!

Замінює будь-які літери у вхідному рядку порожнім рядком.