Objektif

Tulis program atau fungsi (atau yang setara) yang memilah dan mengembalikan huruf aneh dalam matriks ukuran acak.

Detail

Anda akan diberikan sebuah matriks (sebagai string) sebagai input dari dimensi acak seperti ini.

bbbbbbbbbb
bbbbbdbbbb
bbbbbbbbbb
bbbbbbbbbb
bbbbbbbbbb

Tugas Anda adalah menemukan huruf yang tidak cocok dengan yang lainnya (dalam hal ini d, ditemukan di baris 2, kolom 6) dan mengembalikan surat itu sebagai output. Matriks akan terdiri dari huruf A-Z,, a-zbaris baru ( \n, hanya pada ujung baris) dan memiliki dimensi mulai dari 5x5 hingga 10x10 (25-100 huruf).

Celah standar berlaku. Ini adalah tantangan kode golf; entri dengan kode setidaknya byte menang.

Memasukkan

Input akan diteruskan melalui input standar sebagai string jika itu adalah program atau sebagai argumen jika suatu fungsi (atau serupa).

Keluaran

Karakter tunggal yang merupakan "aneh" dalam matriks atau None ,nil , NUL, atau string "None"jika tidak ada "aneh" karakter.

Lebih banyak contoh

AAAAAAA
AAAAAAA
AAAAAAA
AAAIAAA
AAAAAAA

Menjawab: I

vvqvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv

Menjawab: q

puuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu
uuuuuuuuuu

Menjawab: p

Generator

Berikut ini adalah generator matriks acak yang ditulis dengan Python yang dapat Anda gunakan untuk menguji program Anda. Catatan: Ada sedikit kemungkinan bahwa itu bisa membuat kesalahan dan tidak memasukkan huruf aneh.

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 byte

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

Cobalah online!

J , 12 10 7 byte

-.}./.~

Cobalah online!

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

Versi 10 byte

-._1 1{\:~

^{desis ...}

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

Brachylog , 8 4 byte

oḅ∋≠

Cobalah online!

Penjelasan

Saya belum pernah menggunakan Brachylog sebelumnya, jadi ini mungkin tidak optimal.

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 byte

Larutan

*<#:'=

Cobalah online!

Contoh:

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

Penjelasan:

Menemukan pendekatan yang sedikit lebih pendek: Evaluasi kanan-ke-kiri:

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

Catatan:

Sementara saya mengharapkan aspek bonus dari tantangan ini hilang, solusi ini akan mengembalikan karakter baris baru \njika tidak ada karakter aneh:

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

Prolog (SWI) , 46 byte

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

Cobalah online!

Atau jika output true standar dari kueri prolog tidak apa-apa:

Prolog (SWI) , 48 byte

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

Cobalah online!

Penjelasan

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 Bytes

Jauh lebih pendek sebagai fungsi

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

Cobalah online!

kode uji

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

versi lama adalah sebuah program

C 86 Bytes

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

Menghasilkan karakter aneh, atau tidak sama sekali. lari seperti ini;

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 byte

Disimpan 2 byte berkat Adnan

.m

Cobalah online!

Penjelasan

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

Retina , 13 byte

s(O`.
(.)\1+

Cobalah online!

Penjelasan

s(O`.

Sortir semua karakter.

(.)\1+

Hapus semua karakter yang muncul setidaknya dua kali.

Sekam , 2 byte

◄=

Cobalah online!

Ini adalah fungsi yang mengambil string sebagai input dan mengembalikan karakter. Dibutuhkan minimum dari string input ketika membandingkan karakter untuk kesetaraan (yaitu mengembalikan karakter yang sama dengan jumlah terkecil dari karakter lain).

C, 94 byte

Kembali dengan pointer. Jika tidak ada, kembali \0.

Ini akan menyebabkan kebocoran memori. Anggap int4 byte.

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

Cobalah online!

Mathematica, 27 byte

Last@*Keys@*CharacterCounts

Cobalah online!

-1 byte dari Martin Ender

Bash , 15 20 byte

fold -1|sort|uniq -u

Cobalah online!

Penjelasan: fold s input ke 1karakter per baris, sorts ke dalam kelompok huruf yang cocok, lalu cetak hanya baris yang adauniq ue.

Terima kasih @Nueluel Fouilleul untuk menangkap dan membantu memperbaiki masalah dengan pendekatan ini.

Pyth , 4 byte

ho/Q

Coba di sini!

Perl 5, 17 + 3 (-00p) -25% = 15 byte

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

coba online

Matlab, 25 Bytes

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

Input "a" di mana "a" bukan mode "a". Keluaran array kosong tanpa keanehan.

Haskell, 33 * 0,75 = 24,75 byte

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

Mengembalikan daftar kosong jika tidak ada karakter aneh.

Cobalah online!

Untuk setiap karakter cdalam matriks (diberikan sebagai string s) buat string dari semua karakter syang sama dengan cdan pertahankan panjangnya 1.

JavaScript (ES6), 37 byte

Kembali nulljika tidak ada surat aneh.

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

Uji kasus

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 byte

Mengambil input sebagai string multi-line dan menghasilkan string karakter tunggal, atau string kosong jika tidak ada solusi.

k@èX É

Cobalah

Penjelasan

Hapus karakter yang mengembalikan truey ( k) ketika melewati fungsi ( @) yang menghitung ( è) kemunculan elemen saat ini ( X) di input dan kurangi 1 ( É).

Gangguan Umum, 47 byte

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

Cobalah online!

Mengembalikan huruf ganjil atau NIL jika tidak ada.

Jelly , 4 byte

ċ@ÐṂ

Cobalah online!

Kembali \n(satu baris baru) jika tidak ada karakter aneh. Jelas \nbukan karakter yang dapat dicetak.

Kebetulan algoritma ini persis sama dengan jawaban Mr.Xcoder Python. (Saya datang dengan itu secara mandiri)

Penjelasan:

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

Itu bekerja karena dalam sebuah m×nmatriks:

• Jika ada karakter aneh: Ada m-1baris baru, 1 karakter aneh dan m×n-1karakter normal, dan 1 < m-1 < m×n-1karena5 ≤ m, n ≤ 10 .
• Jika tidak ada karakter aneh: Ada m-1baris baru dan m×nkarakter normal, dan m-1 < m×n.

C # (.NET Core) , 54 byte

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

Cobalah online!

C (gcc) , 91 86 82 79 71 byte

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

Cobalah online!

• Terima kasih untuk Gastropner untuk xor dan? trik (-3 byte)
• Mengolah versi perbandingan untuk memperbaiki bug dan menggunakan sihir Gastropner dari komentar.

Penjelasan:

Bandingkan karakter saat ini dan sebelumnya sambil melewatkan baris baru. Jika berbeda, bandingkan dengan char berikutnya. Ini memberitahu kita jika kita mengembalikan karakter saat ini atau sebelumnya. Fungsi mengembalikan nilai karakter "ganjil" jika ada atau 0 jika array tidak aneh. Kami lolos dengan cek char "selanjutnya" karena selalu ada baris baru sebelum \0char. Jika tidak ada char aneh, kami pada dasarnya mengembalikan \ 0 dari for loop.

Kode lama atau lebih seksi Penjelasan:

Buat xor mask berjalan dari 3 nilai string berikutnya. Jika semuanya sama, maka nilainya akan sama dengan salah satu dari ketiganya. Jika mereka berbeda, maka 2 identik akan membatalkan satu sama lain meninggalkan yang unik.

Harus faktor / n sebelum xor atau menjadi berantakan. Juga harus memeriksa 2 karakter untuk ketidaksamaan dalam kasus s [0] adalah nilai ganjil. Ini membutuhkan biaya tambahan || memeriksa.

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

Oktaf , 26 25 byte

1 byte disimpan berkat @Giuseppe

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

Fungsi anonim yang mengambil array char 2D sebagai input, dan menampilkan huruf ganjil atau string kosong jika tidak ada.

Cobalah online!

Alice , 16 * 75% = 12 byte

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

Cobalah online!

Keluaran Jabberwockyjika tidak ada karakter duplikat.

Penjelasan

/...@
\.../

Ini adalah kerangka kerja untuk program linier yang beroperasi sepenuhnya dalam Ordinal (mode pemrosesan string). Kode aktual dieksekusi dengan cara zigzag dan membuka ke:

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

Alih-alih &-, kita juga bisa menggunakan ey(transliterasi ke string kosong). Sebagai alternatif, dengan mengeluarkan satu karakter lagi pada manipulasi tumpukan, kita juga dapat menduplikat input yang memungkinkan kita menghapus karakter yang tidak diinginkan N, tetapi masih dengan byte yang sama:

i.D.QXN.n*o@

Alice , 13 byte

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

Cobalah online!

Ini adalah solusi tanpa bonus, itu hanya melewatkan .n*.

Retina , 22 byte

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

Cobalah online! Hanya membutuhkan tinggi dan lebar minimal 3, bukan 5.

APL + WIN, 16 byte

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

Meminta input layar dan mengeluarkan huruf ganjil atau tidak sama sekali jika tidak ada huruf ganjil

PowerShell , 39 byte

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

Cobalah online!

Mengambil input sebagai string dengan baris baru (seperti yang ditentukan dalam tantangan), mengubahnya menjadi char-array. Kami kemudian Group-Objectkarakter, sehingga karakter dikelompokkan bersama dengan nama mereka, kemudian sortberdasarkan pada count. Ini memastikan bahwa karakter yang kesepian adalah yang pertama, jadi kami ambil[0] indeks dan menampilkannya.Name .

Jika baris baru dapat diterima untuk "tidak ada" maka ini memenuhi syarat untuk bonus.

Perl 6 ,  27  24 -25% = 18 byte

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

Menguji

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

Menguji

Ini akan mengembalikan nilai yang tidak ditentukan saat diberi input yang tidak memiliki karakter aneh.

Diperluas:

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

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

Cobalah secara Online

Mencetak huruf dari matriks jika tidak ada yang aneh

Java 8, 85 byte

Ini adalah lambda dari Stringke String(misalnya Function<String, String>). Ini pada dasarnya adalah salinan dari solusi Luca , tapi aku sudah sedikit mengurutkan string.

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

Cobalah secara Online