Cel

Napisz program lub funkcję (lub równoważną), która uporządkuje i zwróci nieparzystą literę w macierzy o losowym rozmiarze.

Detale

Otrzymasz macierz (jako ciąg) jako dane wejściowe o losowych wymiarach, takich jak ten.

bbbbbbbbbb
bbbbbdbbbb
bbbbbbbbbb
bbbbbbbbbb
bbbbbbbbbb

Twoim zadaniem jest znalezienie litery, która nie pasuje do reszty (w tym przypadku jest ona dznaleziona w wierszu 2, kol. 6) i zwrócenie tej litery jako wyniku. Matryca będzie się składać z liter A-Z, a-zznaków nowej linii ( \ntylko na końcach wierszy) i będzie mieć wymiary od 5x5 do 10x10 (25-100 liter).

Obowiązują standardowe luki. To jest wyzwanie w golfa kodowego; Wpis z kodem najmniej bajtów wygrywa.

Wejście

Dane wejściowe będą przekazywane standardowym wejściem jako ciąg znaków, jeśli jest to program lub jako argument, jeśli funkcja (lub podobna).

Wynik

Jeden znak, że jest „dziwne” w matrycy lub None , nil, NUL, lub ciąg znaków "None", jeśli nie ma znaków „dziwne”.

Więcej przykładów

AAAAAAA
AAAAAAA
AAAAAAA
AAAIAAA
AAAAAAA

Odpowiedź: I

vvqvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv

Odpowiedź: q

puuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu

Odpowiedź: p

Generator

Oto losowy generator macierzy napisany w języku Python, którego można użyć do przetestowania programu. Uwaga: istnieje niewielka szansa, że ​​popełni błąd i nie wpisze dziwnego listu.

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 bajtów

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

Wypróbuj online!

J , 12 10 7 bajtów

-.}./.~

Wypróbuj online!

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

Wersja 10-bajtowa

-._1 1{\:~

^{syczenie ...}

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

Brachylog , 8 4 bajtów

oḅ∋≠

Wypróbuj online!

Wyjaśnienie

Nie korzystałem wcześniej z Brachylog, więc może to nie być optymalne.

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 bajtów

Rozwiązanie

*<#:'=

Wypróbuj online!

Przykład:

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

Wyjaśnienie:

Znaleziono nieco krótsze podejście: oceniane od prawej do lewej:

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

Uwagi:

Chociaż oczekuję, że bonusowy aspekt tego wyzwania zostanie odrzucony, to rozwiązanie zwróci znak nowej linii, \njeśli nie będzie żadnego dziwnego znaku:

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

Prolog (SWI) , 46 bajtów

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

Wypróbuj online!

Lub jeśli standardowe prawdziwe dane wyjściowe z zapytań prologów są nieprawidłowe:

Prolog (SWI) , 48 bajtów

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

Wypróbuj online!

Wyjaśnienie

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 bajtów

Znacznie krótszy jako funkcja

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

Wypróbuj online!

kod testowy

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

stara wersja to program

C 86 bajtów

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

Zwraca nieparzysty znak lub nic. biegnij tak;

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 bajty

Zaoszczędzono 2 bajty dzięki Adnan

.m

Wypróbuj online!

Wyjaśnienie

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

Siatkówka , 13 bajtów

s(O`.
(.)\1+

Wypróbuj online!

Wyjaśnienie

s(O`.

Sortuj wszystkie postacie.

(.)\1+

Usuń wszystkie znaki, które pojawiają się co najmniej dwa razy.

Łuska , 2 bajty

◄=

Wypróbuj online!

Jest to funkcja pobierająca ciąg znaków jako dane wejściowe i zwracająca znak. Pobiera minimum łańcucha wejściowego podczas porównywania znaków w celu uzyskania równości (tzn. Zwraca znak równy najmniejszej liczbie innych znaków).

C, 94 bajty

Wróć przez wskaźnik. Jeśli nie, wróć\0 .

Spowoduje to wycieki pamięci. Zakładając, że intto 4 bajty.

*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;}

Wypróbuj online!

Mathematica, 27 bajtów

Last@*Keys@*CharacterCounts

Wypróbuj online!

-1 bajt od Martina Endera

Bash , 15 20 bajtów

fold -1|sort|uniq -u

Wypróbuj online!

Objaśnienie: fold s jest wprowadzaniem 1znaku w wierszu, sorts w grupach pasujących liter, a następnie drukuje tylko te wiersze, które sąuniq ue.

Dzięki @Nahuel Fouilleul za złapanie i pomoc w rozwiązaniu problemu z tym podejściem.

Pyth , 4 bajty

ho/Q

Wypróbuj tutaj!

Perl 5, 17 + 3 (-00p) -25% = 15 bajtów

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

spróbuj online

Matlab, 25 bajtów

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

Wejście „a”, gdzie „a” nie jest trybem „a”. Wypisuje pustą tablicę dla nieparzystych.

Haskell, 33 * 0,75 = 24,75 bajtów

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

Zwraca pustą listę, jeśli nie ma nieparzystego znaku.

Wypróbuj online!

Dla każdego znaku cw macierzy (podanego jako ciąg s) utwórz ciąg wszystkich znaków, sktóre są równe ci zachowaj te o długości 1.

JavaScript (ES6), 37 bajtów

Zwraca, nulljeśli nie ma nieparzystej litery.

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

Przypadki testowe

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 bajtów

Pobiera dane wejściowe jako ciąg wielu wierszy i wyprowadza ciąg jednego znaku lub pusty ciąg, jeśli nie ma rozwiązania.

k@èX É

Spróbuj

Wyjaśnienie

Usuń znaki zwracające wartość true ( k) po przejściu przez funkcję ( @), która zlicza ( è) wystąpienia bieżącego elementu ( X) na wejściu i odejmuje 1 ( É).

Common Lisp, 47 bajtów

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

Wypróbuj online!

Zwraca nieparzystą literę lub NIL, jeśli nie istnieje.

Galaretka , 4 bajty

ċ@ÐṂ

Wypróbuj online!

Wróć \n(pojedyncza nowa linia), jeśli nie ma nieparzystego znaku. Oczywiście\n nie jest postacią do wydrukowania.

Przypadkowo jest to dokładnie ten sam algorytm, co odpowiedź Mr.Xcoder Python. (Wymyśliłem to niezależnie)

Wyjaśnienie:

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

To działa, ponieważ w m×nmacierzy:

• Jeśli istnieje nieparzysty znak: istnieje m-1 nowe wiersze, 1 nieparzysty znak i m×n-1normalny znak, a 1 < m-1 < m×n-1ponieważ 5 ≤ m, n ≤ 10.
• Jeśli nie istnieje znak nieparzysty: są znaki m-1nowej linii i m×nznak normalny oraz m-1 < m×n.

C # (.NET Core) , 54 bajty

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

Wypróbuj online!

C (gcc) , 91 86 82 79 71 bajtów

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

Wypróbuj online!

• Dzięki Gastropner za xor i? lewy (-3 bajty)
• Przerobiono wersję porównawczą, aby naprawić błędy, i użyłem magii Gastropner z komentarzy.

Wyjaśnienie:

Porównaj obecny i poprzedni znak, pomijając znaki nowej linii. Jeśli jest inny, porównaj następny znak. To mówi nam, czy zwrócimy obecny lub poprzedni znak. Funkcja zwraca „nieparzystą” wartość char, jeśli istnieje, lub 0, jeśli tablica nie jest nieparzysta. Unika nas „następny” czek znaków, ponieważ przed znakiem zawsze jest nowa linia \0. Jeśli nie ma nieparzystego znaku, wewnętrznie zwracamy \ 0 z pętli for.

Starszy, bardziej seksowny kod xor Objaśnienie:

Utwórz działającą maskę xor z następnych 3 wartości ciągu. Jeśli wszystkie są takie same, wartość będzie równa dowolnej z trzech. Jeśli są różne, 2 identyczne anulują się nawzajem, pozostawiając niepowtarzalne.

Należy uwzględnić współczynnik / n przed xor, aby uzyskać bałagan. Muszę również sprawdzić 2 znaki pod kątem nierówności w przypadku, gdy s [0] jest wartością nieparzystą. To kosztuje dodatkowe || czek.

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;}}

Oktawa , 26 25 bajtów

1 bajt zapisany dzięki @Giuseppe

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

Anonimowa funkcja, która pobiera tablicę znaków 2D jako dane wejściowe i wyświetla nieparzystą literę lub pusty ciąg, jeśli nie istnieje.

Wypróbuj online!

Alice , 16 * 75% = 12 bajtów

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

Wypróbuj online!

Wyjścia Jabberwocky jeśli nie ma zduplikowanego znaku.

Wyjaśnienie

/...@
\.../

Jest to framework dla programów liniowych, które działają całkowicie w Ordinal (tryb przetwarzania łańcucha znaków). Rzeczywisty kod jest wykonywany w sposób zygzakowaty i rozwija się w celu:

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

Zamiast tego &-możemy również użyć ey(transliteracja do pustego ciągu). Alternatywnie, wydając jeszcze jeden znak na manipulację stosem, możemy również deduplikować dane wejściowe, co pozwala nam usunąć niechciane znaki N, ale nadal jest taka sama liczba bajtów:

i.D.QXN.n*o@

Alice , 13 bajtów

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

Wypróbuj online!

Jest to rozwiązanie bez premii, po prostu brakuje .n*.

Siatkówka , 22 bajty

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

Wypróbuj online! Wymaga tylko wysokości i szerokości co najmniej 3, a nie 5.

APL + WIN, 16 bajtów

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

Monituje o wprowadzenie ekranu i wyświetla nieparzystą literę lub nic, jeśli nie ma nieparzystej litery

PowerShell , 39 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jako ciąg znaków z nowymi liniami (jak określono w wyzwaniu), konwertuje je na chartablicę. My następnie Group-Objectpostacie, dzięki czemu postacie są pogrupowane według ich nazw, a następnie sortna podstawie cliczby. To gwarantuje, że samotna postać jest pierwsza, więc bierzemy [0]indeks i tworzymy go.Name .

Jeśli nowa linia jest akceptowalna jako „nic”, to kwalifikuje się do premii.

Perl 6 ,  27  24 -25% = 18 bajtów

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

Sprawdź to

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

Sprawdź to

Będzie to powrót nieokreślonej wartości , gdy podane dane wejściowe, które nie mają dziwny znak out.

Rozszerzony:

{  # 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 bajtów

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

Wypróbuj online

Drukuje literę matrycy, jeśli nie ma jednej nieparzystej

Java 8, 85 bajtów

Jest to lambda od Stringdo String(np Function<String, String>.). Zasadniczo jest to kopia rozwiązania Lucy , ale trochę posortowałem łańcuch.

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

Wypróbuj online