Anehnya kita belum memiliki tantangan "menemukan angka tertinggi" yang sederhana, tapi saya pikir itu agak terlalu sepele.

Diberikan input integer non-negatif, kembalikan digit unik unik (yaitu tidak diulang) yang ditemukan dalam integer. Jika tidak ada angka unik, program Anda dapat melakukan apa saja (perilaku tidak terdefinisi).

Input dapat diambil sebagai integer tunggal, string, atau daftar digit.

Uji kasus

12         -> 2
0          -> 0
485902     -> 9
495902     -> 5
999999     -> Anything
999099     -> 0
1948710498 -> 7

Ini adalah kode-golf sehingga byte paling sedikit di setiap bahasa menang!

05AB1E , 4 3 byte

Disimpan 1 byte berkat Tn. Xcoder yang memberitahukan bahwa daftar angka adalah input yang valid.

¢ÏM

Cobalah online!

Penjelasan

¢     # count occurrences of each digit in input
 Ï    # keep only the digits whose occurrences are true (1)
  M   # push the highest

Python 3 , 40 byte

Disimpan 2 byte berkat movatica .

lambda i:max(x*(i.count(x)<2)for x in i)

Cobalah online!

42 byte

Berfungsi untuk String dan daftar tipe parameter digit. Melempar kesalahan tanpa digit unik, jenis penyalahgunaan spec itu:

lambda i:max(x for x in i if i.count(x)<2)

Cobalah online!

Penjelasan

• lambda i: - Mendeklarasikan fungsi lambda dengan string atau daftar parameter digit i.
• max(...) - Menemukan nilai maksimum generator.
• x for x in i - Iterasi melalui karakter / digit i .
• if i.count(x)<2 - Memeriksa apakah digitnya unik.

Alice , 15 byte

/&.sDo
\i-.tN@/

Cobalah online!

Penjelasan

/...
\.../

Ini adalah kerangka kerja sederhana untuk kode linier yang beroperasi sepenuhnya dalam mode Ordinal (artinya program ini bekerja sepenuhnya melalui pemrosesan string). Kode linear yang tidak dilipat hanyalah:

i..DN&-sto@

Apa fungsinya:

i    Read all input as a string.
..   Make two copies.
D    Deduplicate the characters in the top copy.
N    Get the multiset complement of this deduplicated string in the input.
     This gives us a string that only contains repeated digits (with one
     copy less than the original, but the number of them doesn't matter).
&-   Fold string subtraction over this string, which means that each of
     the repeated digits is removed from the input.
s    Sort the remaining digits.
t    Split off the last digit.
o    Print it.
@    Terminate the program.

Retina , 16 byte

O`.
(.)\1+

!`.$

Cobalah online!

Penjelasan

O`.

Urutkan digit.

(.)\1+

Hapus digit berulang.

!`.$

Ambil digit terakhir (maksimal).

Arang , 18 12 byte

Ｆχ¿⁼№θＩι¹ＰＩι

Cobalah online!(Tautan ke versi verbose)

Mencetak apa pun jika tidak ada solusi yang ditemukan. Kuncinya adalah bahwafor loop mencetak setiap nomor unik dalam string input, tetapi tanpa menggerakkan kursor, sehingga nilainya terus mencetak ulang sendiri sampai solusi akhir ditemukan.

Versi sebelumnya mencetak karakter A hingga Z ketika tidak ada solusi yang ditemukan, karenanya komentar:

ＡααＦχＡ⎇⁼№θＩι¹Ｉιααα

Cobalah online! (Tautan ke versi verbose)

Sekam , 7 byte

→fo¬hgO

Cobalah online! (Test suite, crash pada test case terakhir karena tidak memiliki digit unik)

Ini adalah komposisi fungsi dalam gaya point-free (argumen tidak disebutkan secara eksplisit di mana pun). Mengambil input dan mengembalikan output sebagai string, yang dalam Husk setara dengan daftar karakter.

Penjelasan

Test case: "1948710498"

      O    Sort:                             "0114478899"
     g     Group consecutive equal elements: ["0","11","44","7","88","99"]
 fo¬h      Keep only those with length 1*:   ["0","7"]
→          Take the last element:            "7"

* Pemeriksaan panjang 1 dilakukan dengan mengambil kepala daftar (semua elemen kecuali yang terakhir) dan meniadakannya (daftar kosong adalah palsu, daftar tidak kosong adalah benar).

Haskell, 37 byte

f s=maximum[x|x<-s,[x]==filter(==x)s]

Cobalah online!

Bagaimana itu bekerja:

  [  |x<-s   ]          -- loop x through the input string s
    x                   -- and keep the x where
     [x]==filter(==x)s  -- all x extracted from s equal a singleton list [x]
maximum                 -- take the maximum of all the x

R , 41 byte

function(x,y=table(x))max(names(y[y==1]))

Fungsi anonim yang mengambil daftar digit, baik sebagai bilangan bulat atau string karakter tunggal. Ini precomputes ysebagai argumen opsional untuk menghindari menggunakan kurung kurawal untuk fungsi tubuh. Mengembalikan digit sebagai string. Ini mengambil pendekatan yang sedikit berbeda dari jawaban R lainnya dan akhirnya menjadi yang terkecil lebih pendek! Sepertinya komentar saya ada yang salah setelah semua ...

tablemenghitung kemunculan setiap elemen dalam daftar, dengan names(table(x))menjadi nilai unik dalam x(sebagai string). Karena angka-angka untungnya dipesan dengan leksikografis yang sama dengan angka, kita masih bisa menggunakan max.

Cobalah online!

JavaScript (ES6), 46 41 40 byte

Mengambil input sebagai string. Mengembalikan RangeError jika tidak ada angka unik.

s=>f=(i=9)=>s.split(i).length-2?f(--i):i

-7 byte berkat Rick Hitchcock

-1 byte terima kasih kepada Shaggy

Uji kasus

let f =

s=>g=(i=9)=>s.split(i).length-2?g(--i):i


console.log(f("12")())         // 2
console.log(f("0")())          // 0
console.log(f("485902")())     // 9
console.log(f("495902")())     // 5
//console.log(f("999999")())   // RangeError
console.log(f("999099")())     // 0
console.log(f("1948710498")()) // 7

Python 3, 40 byte

lambda i:max(x+9-9*i.count(x)for x in i)

Hanya berfungsi untuk daftar digit. Kasing tepi '990' berfungsi dengan baik :)

Cobalah online!

Brachylog , 8 byte

ọtᵒtᵍhth

Cobalah online!

Penjelasan

Example input: 495902

ọ          Occurences:    [[4,1],[9,2],[5,1],[0,1],[2,1]]
 tᵒ        Order by tail: [[0,1],[2,1],[4,1],[5,1],[9,2]]
   tᵍ      Group by tail: [[[0,1],[2,1],[4,1],[5,1]],[[9,2]]]
     h     Head:          [[0,1],[2,1],[4,1],[5,1]]
      t    Tail:          [5,1]
       h   Head:          5

Sekam , 9 8 byte

Terima kasih kepada Leo karena menyarankan solusi yang sedikit lebih rapi pada jumlah byte yang sama.

▲‡ȯf=1`#

Cobalah online!

Penjelasan

  ȯ       Compose the following thre functions into one binary function.
      `#  Count the occurrences of the right argument in the left.
    =1    Check equality with 1. This gives 1 (truthy) for values that 
          appear uniquely in the right-hand argument.
   f      Select the elements from the right argument, where the function
          in the left argument is truthy.
          Due to the composition and partial function application this
          means that the first argument of the resulting function actually
          curries `# and the second argument is passed as the second
          argument to f. So what we end up with is a function which selects
          the elements from the right argument that appear uniquely in
          the left argument.
 ‡        We call this function by giving it the input for both arguments.
          So we end up selecting unique digits from the input.
▲         Find the maximum.  

Mathematica, 41 byte

(t=9;While[DigitCount[#][[t]]!=1,t--];t)&

terima kasih @Martin Ender

inilah pendekatan Martin pada jawaban saya

Mathematica, 35 byte

9//.d_/;DigitCount[#][[d]]!=1:>d-1&

R, 45 43 byte

function(x)max(setdiff(x,x[duplicated(x)]))

Cobalah online!

Mengambil input sebagai vektor bilangan bulat. Menemukan elemen yang digandakan, menghapusnya, dan mengambil yang maksimal. (Kembali -Infdengan peringatan jika tidak ada yang unik maksimum.)

Diedit menjadi fungsi anonim per komentar

Ruby , 42 byte

->x{(?0..?9).select{|r|x.count(r)==1}[-1]}

Cobalah online!

APL (Dyalog Unicode) , 10 karakter = 19 byte

Metode: gandakan elemen yang terjadi beberapa kali dengan nol, dan kemudian denda elemen tertinggi.

⌈/×∘(1=≢)⌸

⌸ untuk setiap elemen unik dan indeksnya dalam argumen:

 × gandakan elemen unik

 ∘(… ) Dengan:

  1= Boolean untuk apakah seseorang sama dengan

  ≢ penghitungan indeks (berapa kali elemen unik terjadi)

⌈/ maks itu

Cobalah online!

APL (Dyalog Classic) , 15 byte

⌈/×∘(1=≢)⎕U2338

Cobalah online!

Identik dengan yang di atas, tetapi gunakan ⎕U2338sebagai ganti ⌸.

Bash + coreutils, 30 28 byte

-2 byte berkat Digital Trauma

fold -1|sort|uniq -u|tail -1

Cobalah online!

Bash + coreutils, 20 byte

sort|uniq -u|tail -1

Cobalah online!

Jika input diberikan sebagai daftar digit, satu digit per baris, kita dapat melewati tahap flip. Rasanya seperti selingkuh.

Python 2 , 39 byte

lambda l:max(1/l.count(n)*n for n in l)

Cobalah online!

C # (.NET Core) , 27 97 86 58 57 75 byte

using System.Linq;

n=>n.GroupBy(i=>i).Where(i=>i.Count()<2).Max(i=>i.Key)-48

Cobalah online!

Terima kasih @CarlosAlejo

JavaScript (ES6), 52 50 byte

Mengambil input sebagai daftar digit. Kembali 0jika tidak ada digit unik.

s=>s.reduce((m,c)=>m>c|s.filter(x=>x==c)[1]?m:c,0)

Uji kasus

let f =

s=>s.reduce((m,c)=>m>c|s.filter(x=>x==c)[1]?m:c,0)

console.log(f([1,2]))                 // 2
console.log(f([0]))                   // 0
console.log(f([4,8,5,9,0,2]))         // 9
console.log(f([4,9,5,9,0,2]))         // 5
console.log(f([9,9,9,9,9,9]))         // (0)
console.log(f([9,9,9,0,9,9]))         // 0
console.log(f([1,9,4,8,7,1,0,4,9,8])) // 7

Japt , 12 11 10 byte

Mengambil input sebagai array angka.

k@¬èX ÉÃrw

Menguji

Penjelasan

     :Implicit input of array U.
k    :Filter the array to the elements that return false when...
@    :Passed through a function that...
¬    :Joins U to a string and...
èX   :Counts the number of times the current element (X) appears in the string...
É    :Minus 1.
     :(The count of unique digits will be 1, 1-1=0, 0=false)
à   :End function.
r    :Reduce by...
w    :Getting the greater of the current element and the current value.
     :Implicit output of resulting single digit integer.

Java (OpenJDK 8) , 89 85 79 byte

a->{int i=10,x[]=new int[i];for(int d:a)x[d]++;for(;i-->0&&x[i]!=1;);return i;}

Cobalah online!

-6 byte berkat wawasan @ KevinCruijssen!

APL (Dyalog) , 14 byte

-2 Terima kasih untukwiwi.

⌈/⊢×1=(+/∘.=⍨)

⌈/ terbesar dari

⊢ argumen

× dikalikan dengan

1=(... ) Boolean untuk masing-masing di mana satu sama dengan

 +/ jumlah baris

 ∘.=⍨ tabel kesetaraan mereka

Cobalah online!

PHP , 40 byte

<?=array_flip(count_chars($argn))[1]-48;

Cobalah online!

PHP , 42 byte

<?=chr(array_flip(count_chars($argn))[1]);

Cobalah online!

Java (JDK) , 67 byte

s->{int i=9;for(s=" "+s+" ";s.split(i+"").length!=2;i--);return i;}

Cobalah online!

Mathematica, 42 byte

Max@Position[RotateRight@DigitCount@#,1]-1&

F # , 88 byte

let f i=Seq.countBy(fun a->a)i|>Seq.maxBy(fun a->if snd a>1 then 0 else int(fst a))|>fst

Cobalah online!

Pendekatan yang ditingkatkan dari upaya pertama saya, menghasilkan lebih sedikit byte.

Poin yang menarik: fstdan sndkembalikan masing-masing elemen tuple pertama dan kedua.

Jelly , 9 byte

ṢŒrṪỊ$ÐfṀ

Cobalah online!

Pyth, 6 byte

eS.m/Q

Suite uji

Penjelasan:

eS.m/Q
eS.m/QbQ    Implicit variable introduction
  .m   Q    Find all minimal elements of the input by the following function:
    /Qb     Number of appearances in the input
eS          Take the maximum element remaining.

Perl 5 , 59 byte

for$x(split//,<>){$d[$x]++};for($x=11;--$d[--$x];){}print$x

Cobalah online!