Об'єктивна

Напишіть програму або функцію (або еквівалент), яка сортує та повертає непарну букву в матриці випадкового розміру.

Деталі

Вам буде передано матрицю (як рядок) як вхід випадкових розмірів, таких як цей.

bbbbbbbbbb
bbbbbdbbbb
bbbbbbbbbb
bbbbbbbbbb
bbbbbbbbbb

Ваше завдання - знайти лист, який не відповідає решті (у цьому випадку він dзнайдений у рядку 2, стовпчик 6) і повернути цей лист як вихідний. Матриця буде складатися з букв A-Z, a-zсимволи нового рядка ( \n, тільки на кінцях рядків) і мають розміри в межах від 5х5 до 10х10 (25-100 літери).

Застосовуються стандартні лазівки. Це виклик з кодом для гольфу; запис з кодом найменших байтів виграє.

Вхідні дані

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

Вихідні дані

Єдиний символ , який є «непарних» в матриці або None , nil, NULабо рядок , "None"якщо немає «непарного» характеру.

Більше прикладів

AAAAAAA
AAAAAAA
AAAAAAA
AAAIAAA
AAAAAAA

Відповідь: I

vvqvvvvvvvv
вввввввввв
вввввввввв
вввввввввв
вввввввввв

Відповідь: q

puuuuuuuu
ууууууууу
ууууууууу
ууууууууу
ууууууууу
ууууууууу
ууууууууу
ууууууууу
ууууууууу
ууууууууу

Відповідь: p

Генератор

Ось генератор випадкових матриць, написаний на Python, який ви можете використовувати для тестування програми. Примітка. Є невелика ймовірність, що він може помилитися і не поставити його в непарному листі.

Instructions

1. Copy this code into a file called `matrix_gen.py`.
2. Run it with `python matrix_gen.py`.

---

from random import randint

rows = randint(5,10)
cols = randint(5,10)

charset = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
neg = charset[randint(0,51)]
pos = charset[randint(0,51)]
p_used = 0

comp = 0
matrix = ""

while comp < rows:
  row = ""
  while len(row) < cols:
    if not p_used and not randint(0,10):
      p_used = 1
      row = row + pos
    else:
      row = row + neg
  row = row + "\n"
  matrix = matrix + row
  comp += 1

print matrix[:-1]

Python 3 , 27 байт

lambda x:min(x,key=x.count)

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

J , 12 10 7 байт

-.}./.~

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

    /.~        Group identical items together
  }.           Remove one item from each group
-.             Remove the rest from the input

10-байтна версія

-._1 1{\:~

^{шис ...}

       \:~        Sort down
  _1 1{           Take the last character (which is a newline) and the second one.
-.                Remove those from the input

Брахілог , 8 4 байти

oḅ∋≠

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

Пояснення

Я раніше не використовував Брахілог, тому це може бути не оптимально.

oḅ∋≠  Input is a string.
o     Sort the input.
 ḅ    Split it into blocks of equal elements.
  ∋   There is a block
   ≠  whose elements are all different.
      That block is the output.

K (oK) , 7 6 байт

Рішення

*<#:'=

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

Приклад:

*<#:'="vvqvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv"
"q"

Пояснення:

Знайдено трохи коротший підхід: Оцінено справа наліво:

*<#:'= / the solution
     = / group matching items together
  #:'  / count (#:) each (')
 <     / sort ascending
*      / take the first one

Примітки:

Хоча я очікую, що бонусний аспект цього виклику буде скасований, це рішення поверне символ нового рядка, \nякщо немає непарного символу:

*<#:'="vvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv"
"\n"

Пролог (SWI) , 46 байт

p(L):-select(X,L,Y),\+member(X,Y),writef([X]).

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

Або якщо стандартний істинний вихід із запитів прологів не відповідає:

Пролог (SWI) , 48 байт

Z*L:-select(X,L,Y),\+member(X,Y),char_code(Z,X).

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

Пояснення

Find the first element X in the input  
that when removed, results in output  
that does not contain X

then depending on the version above either:  
print X as a character  
or  
return X as an atom

C (gcc) , 93 92 90 66 62 Байт

Набагато коротше як функція

t;f(char*p){for(t=*p;*p;)t^*p++?putchar(*p^*--p?*p:t),*p=0:0;}

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

код тесту

main()
{
    char s[99];
    for(;gets(s);)f(s);
}

стара версія - програма

C 86 байт

char*p;s[9];main(t){for(;p=gets(s);)for(t=*p;*p;)t^*p++?putchar(*p^*--p?*p:t),*p=0:0;}

Виводить непарний символ або нічого. бігати так;

C:\eng\golf>python matrix_gen.py | a.exe
X
C:\eng\golf>python matrix_gen.py | a.exe
G
C:\eng\golf>python matrix_gen.py | a.exe
x
C:\eng\golf>python matrix_gen.py | a.exe

C:\eng\golf>python matrix_gen.py | a.exe
J

05AB1E ,  4  2 байти

Збережено 2 байти завдяки Аднану

.m

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

Пояснення

.m   # push a list of the least frequent character(s) in input

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

s(O`.
(.)\1+

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

Пояснення

s(O`.

Сортувати всі символи.

(.)\1+

Видаліть будь-які символи, які з’являються щонайменше двічі.

Лушпиння , 2 байти

◄=

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

Це функція, яка бере рядок як вхід і повертає символ. Він порівнює мінімум вхідного рядка при порівнянні символів для рівності (тобто повертає символ, рівний найменшій кількості інших символів).

C, 94 байти

Повернення за вказівником. Якщо ні, поверніться \0.

Це призведе до витоку пам'яті. Припустимо, що intце 4 байти.

*t;f(c,p,i)char*c,*p;{t=calloc(64,8);for(*p=-1;*c;c++)t[*c]--;for(i=0;++i<128;)!~t[i]?*p=i:0;}

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

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

Last@*Keys@*CharacterCounts

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

-1 байт від Мартіна Ендера

Баш , 15 20 байт

fold -1|sort|uniq -u

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

Пояснення: fold s введення 1символу для кожного рядка, sorts його на групи відповідних літер, а потім друкує лише рядки, які є unique.

Дякуємо @Nahuel Fouilleul за те, що вирішили проблему з таким підходом.

Pyth , 4 байти

ho/Q

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

Perl 5, 17 + 3 (-00p) -25% = 15 байт

/(.)\1/;s/
|$1//g

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

Матлаб, 25 байт

a=input('');a(a~=mode(a))

Вхід "a" де "a" не є режимом "a". Виводить порожній масив без відхилення.

Haskell, 33 * 0,75 = 24,75 байт

f s=[c|[c]<-(`filter`s).(==)<$>s]

Повертає порожній список, якщо немає непарного символу.

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

Для кожного знака cв матриці (подається у вигляді рядка s) зробіть рядок усіх знаків s, рівних cта дотримайте значення довжини 1.

JavaScript (ES6), 37 байт

Повертається, nullякщо немає непарного листа.

s=>s.match(`[^
${s.match(/(.)\1/)}]`)

Тестові справи

let f =

s=>s.match(`[^
${s.match(/(.)\1/)}]`)

console.log(f(
  'bbbbbbbbbb\n' +
  'bbbbbdbbbb\n' +
  'bbbbbbbbbb\n' +
  'bbbbbbbbbb\n' +
  'bbbbbbbbbb'
))

console.log(f(
  'AAAAAAA\n' +
  'AAAAAAA\n' +
  'AAAAAAA\n' +
  'AAAIAAA\n' +
  'AAAAAAA'
))

console.log(f(
  'vvqvvvvvvv\n' +
  'vvvvvvvvvv\n' +
  'vvvvvvvvvv\n' +
  'vvvvvvvvvv\n' +
  'vvvvvvvvvv'
))

console.log(f(
  'puuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu\n' +
  'uuuuuuuuu'
))

console.log(f(
  'AAAAA\n' +
  'AAAAA\n' +
  'AAAAA\n' +
  'AAAAA\n' +
  'AAAAA'
))

Japt , 6 байт

Приймає введення як багаторядковий рядок і виводить рядок з одним символом або порожній рядок, якщо немає рішення.

k@èX É

Спробуй це

Пояснення

Видаліть символи, які повертають truthy ( k) при проходженні через функцію ( @), яка рахує ( è) входження поточного елемента ( X) на вході та віднімає 1 ( É).

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

(lambda(s)(find-if(lambda(x)(=(count x s)1))s))

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

Повертає непарний лист або NIL, якщо його не існує.

Желе , 4 байти

ċ@ÐṂ

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

Повернення \n(один новий рядок) у випадку, якщо немає непарного символу. Очевидно, що \nце не надрукований персонаж.

Випадково це точно той же алгоритм, що і відповідь Mr.Xcoder Python. (Я придумав це самостійно)

Пояснення:

  ÐṂ    Ṃinimum value by...
ċ@      ċount. (the `@` switch the left and right arguments of `ċ`)

Це працює, тому що в m×nматриці:

• Якщо існує непарний символ: Є m-1нові рядки, 1 непарний символ і m×n-1звичайний символ, і 1 < m-1 < m×n-1тому 5 ≤ m, n ≤ 10.
• Якщо не існує непарного символу: Є m-1нові рядки та m×nзвичайний символ, і m-1 < m×n.

C # (.NET Core) , 54 байти

i=>i.GroupBy(x=>x).FirstOrDefault(g=>g.Count()<2)?.Key

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

C (gcc) , 91 86 82 79 71 байт

f(char*s){for(;*++s==10?s+=2:0,*s;)if(*s^s[-1])return*s^s[1]?*s:s[-1];}

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

• Завдяки Gastropner за xor і? трюки (-3 байти)
• Переробив порівняльну версію, щоб виправити помилки та використав магію Gastropner з коментарів.

Пояснення:

Порівняйте поточний та попередній знаки, пропускаючи нові рядки. Якщо різні, порівняйте з наступною таблицею. Це говорить нам, чи повернемо поточну чи попередню схему. Функція повертає "непарне" значення char, якщо воно існує, або 0, якщо масив не є непарним. Ми відходимо від "наступної" перевірки чар, тому що завжди є новий рядок перед цим \0. Якщо немає непарних знаків, ми внутрішньо повертаємо \ 0 з циклу for.

Старший, сексуальніший XOR-код Пояснення:

Створіть запущену маску xor з наступних 3 рядкових значень. Якщо вони однакові, то значення буде дорівнює будь-якому з трьох. Якщо вони різні, то два однакових відмінять один одного, залишаючи унікальний.

Потрібний фактор / n перед xor або він стає безладним. Також потрібно перевірити 2 знаки на нерівність, якщо s [0] є непарним значенням. Це коштує додатково || перевірити.

v;f(char*s){while(s[3]){s[2]==10?s+=3:0;v=*s^s[1]^s[2];if(v^‌​*s++||v^*s)break;}}

Октава , 26 25 байт

1 байт збережено завдяки @Giuseppe

@(x)x(sum(x(:)==x(:)')<2)

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

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

Аліса , 16 * 75% = 12 байт

/-.nDo&
\i..*N@/

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

Виводить, Jabberwockyякщо немає дублюючого символу.

Пояснення

/...@
\.../

Це основа для лінійних програм, які повністю працюють в Ordinal (режим обробки рядків). Фактичний код виконується в зигзагоподібному порядку і розгортається для:

i..DN&-o

i   Read all input.
..  Make two copies.
D   Deduplicate one copy, giving only the two letters and a linefeed.
N   Multiset difference. Removes one copy of each letter and one linefeed.
    Therefore it drops the unique letter.
&-  Fold substring removal over this new string. This essentially removes
    all copies of the repeated letter and all linefeeds from the input,
    leaving only the unique letter.
.   Duplicate.
n   Logical NOT. Turns empty strings into "Jabberwocky" and everything else
    into an empty string.
*   Concatenate to the previous result.
o   Print the unique letter or "Jabberwocky".

Замість цього &-ми могли б також використовувати ey(транслітерація в порожній рядок). Крім того, витративши ще один символ на маніпуляцію зі стеком, ми також могли б подвоїти вхід, який дозволяє нам видаляти небажані символи N, але це все одно те саме число байтів:

i.D.QXN.n*o@

Аліса , 13 байт

/N.-D@
\i&.o/

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

Це рішення без бонусу, просто відсутнє .n*.

Сітківка , 22 байти

!`(.)(?!.*\1)(?<!\1.+)

Спробуйте в Інтернеті! Потрібна лише висота і ширина не менше 3, а не 5.

APL + WIN, 16 байт

(1=+/a∘.=a)/a←,⎕

Підказки для введення екрана і виводить непарний лист або нічого, якщо немає непарної літери

PowerShell , 39 байт

([char[]]"$args"|group|sort c*)[0].Name

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

Приймає введення як рядок з новими рядками (як зазначено в виклику), перетворює його в- charмасив. Потім ми Group-Objectсимволи, так що символи згруповані разом за своїми іменами, а потім sortна основі cунти. Це забезпечує, що самотній персонаж перший, тому ми беремо[0] індекс і виводимо його .Name.

Якщо новий рядок прийнятний для "нічого", то це може бути бонусом.

Perl 6 ,  27  24 -25% = 18 байт

*.comb.Bag.min(*.value).key

Перевірте це

{%(.comb.Bag.invert){1}}

Перевірте це

Це поверне невизначене значення при введенні, що не має непарного символу.

Розширено:

{  # bare block lambda with implicit parameter ｢$_｣

  %(        # coerce into a Hash

    .comb   # split the input into graphemes (implicit method call on ｢$_｣)
    .Bag    # turn into a weighted Set
    .invert # invert that (swap keys for values) returns a sequence

  ){ 1 }    # get the character that only occurs once
}

Brainfuck, 125 байт

,[----------[>],]<[->+<]<<[[->->+<<]>[>[->-<<<+>>]>[,<<,>>]<<<[->+<]>[->+<]<]>[-<<+>>]>[-<+>]<<<<]>>>>[<]<++++++++++.

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

Друкує букву матриці, якщо не існує непарного

Java 8, 85 байт

Це лямбда від Stringдо String(наприклад Function<String, String>). Це по суті копія рішення Лука , але я трохи впорядкував рядки, сортуючи їх.

s->new String(s.chars().sorted().toArray(),0,s.length()).replaceAll("(.)\\1+|\\n","")

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