Şaşırtıcı bir şekilde, henüz basit bir "en yüksek rakamı bulma" zorluğu yaşamadık, ama bence bu biraz fazla önemsiz.

Negatif olmayan bir tamsayı girildiğinde, tamsayıda bulunan en yüksek benzersiz (yani tekrarlanmadı) basamağını döndürün. Benzersiz basamak yoksa, programınız her şeyi yapabilir (tanımsız davranış).

Giriş, tek bir tamsayı, bir dize veya basamak listesi olarak alınabilir.

Test durumları

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

Bu kod golf, yani her dilde en az bayt kazanıyor!

05AB1E , 4 3 bayt

Bay Xcoder sayesinde bir basamak listesinin geçerli bir giriş olduğunu bildiren 1 bayt kaydedildi .

¢ÏM

Çevrimiçi deneyin!

açıklama

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

Python 3 , 40 bayt

Movatica sayesinde 2 bayt kurtarıldı .

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

Çevrimiçi deneyin!

42 bayt

Dize ve basamak parametre türlerinin listesi için çalışır. Eşsiz rakamlar olmadığı için hata atar ve bu spesifikasyonun kötüye kullanımı:

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

Çevrimiçi deneyin!

açıklama

• lambda i: - Bir dize veya basamak listesi i parametresiyle bir lambda işlevi bildirir.
• max(...) - Jeneratörün maksimum değerini bulur.
• x for x in i- Karakterleri / rakamlarını sırayla gösterir i.
• if i.count(x)<2 - Rakamın benzersiz olup olmadığını kontrol eder.

Alice , 15 bayt

/&.sDo
\i-.tN@/

Çevrimiçi deneyin!

açıklama

/...
\.../

Bu, tamamen Ordinal modda çalışan doğrusal kod için basit bir çerçevedir (yani bu program tamamen dize işleme yoluyla çalışır). Açılmamış doğrusal kod daha sonra sadece:

i..DN&-sto@

Bu ne yapar:

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 bayt

O`.
(.)\1+

!`.$

Çevrimiçi deneyin!

açıklama

O`.

Rakamları sırala.

(.)\1+

Tekrarlanan rakamları kaldırın.

!`.$

Son (maksimum) basamağı al.

Kömür , 18 12 bayt

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

Çevrimiçi deneyin! (Ayrıntılı versiyona bağlantı)

Bir çözüm bulunamazsa hiçbir şey yazdırmaz. İşin püf noktası, fordöngünün giriş dizesindeki her benzersiz sayıyı basmasıdır; ancak imleci hareket ettirmeden, bu nedenle son çözüm bulunana kadar değer kendini yeniden yazdırmaya devam eder.

Önceki sürüm, hiçbir çözüm bulunamadığında A ile Z arasındaki karakterleri yazdırdı;

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

Çevrimiçi deneyin! (Ayrıntılı versiyona bağlantı)

Kabuğu , 7 bayt

→fo¬hgO

Çevrimiçi deneyin!(Test paketi, benzersiz bir basamağı olmadığından son test vakasında çöküyor)

Bu, puansız stilde işlevlerin bir bileşimidir (argümanlar açıkça hiçbir yerde belirtilmez). Girdiyi alır ve çıktıyı Husk'ta bir karakter listesine eşdeğer olan bir dize olarak döndürür.

açıklama

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"

* 1 no'lu uzunluk kontrolü, listenin başına (sonuncusu hariç tüm elementler) alınarak ve yok sayılarak (boş listeler sahtecilik, boş olmayan listeler hakikaten yapılır) yapılır.

Haskell, 37 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır:

  [  |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 bayt

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

Tamsayı veya tek karakterli dizgiler olarak basamakların listesini alan adsız bir işlev. yİşlev gövdesi için küme ayraçları kullanmaktan kaçınmak için isteğe bağlı bir argüman olarak önceden hesaplanır . Rakamı dizge olarak döndürür. Bu , diğer R cevabından biraz farklı bir yaklaşım izler ve en küçük bit daha kısa olur! Benim yorumum her şeyden önce yanlış olmuş gibi görünüyor ...

tableListedeki her bir elementin oluşumunu, (string olarak) names(table(x))benzersiz değerler xolarak hesaplar . Rakamlar neyse ki sayısal olarak aynı sözlüksel olarak sıralandığından hala kullanabiliriz max.

Çevrimiçi deneyin!

JavaScript (ES6), 46 41 40 bayt

Bir dize olarak girdi alır. Benzersiz basamak yoksa, RangeError değerini döndürür.

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

Rick Hitchcock sayesinde -7 bayt

Shaggy sayesinde -1 bayt

Test durumları

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 bayt

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

Sadece rakam listelerinde çalışır. '990' uç kasası iyi çalışıyor :)

Çevrimiçi deneyin!

Brachylog , 8 bayt

ọtᵒtᵍhth

Çevrimiçi deneyin!

açıklama

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

Kabuğu , 9 8 bayt

Leo'ya, aynı byte sayısında biraz daha düzgün bir çözüm önerdiği için teşekkür ederiz.

▲‡ȯf=1`#

Çevrimiçi deneyin!

açıklama

  ȯ       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 bayt

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

teşekkürler @Martin Ender

Martin'in cevabımdaki yaklaşımı işte

Mathematica, 35 bayt

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

R, 45 43 bayt

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

Çevrimiçi deneyin!

Bir tamsayı vektörü olarak girdiyi alır. Çoğaltılan öğeleri bulur, kaldırır ve en fazla sayıyı alır. ( -InfEşsiz bir maksimum olmadığında bir uyarı ile döner.)

Her yorum için anonim bir işlev olarak düzenlendi

Ruby , 42 bayt

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

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 10 karakter = 19 bayt

Yöntem: Birden çok kez ortaya çıkan öğeleri sıfır ile çarpın ve ardından en yüksek öğeyi ayarlayın.

⌈/×∘(1=≢)⌸

⌸ Her benzersiz eleman ve argümandaki indeksleri için:

 × benzersiz öğeyi çarp

 ∘(… ) İle:

  1= Birinin eşit olup olmadığına ilişkin Boole

  ≢ endekslerin toplamı (benzersiz öğenin kaç kez gerçekleştiği)

⌈/ bunun maksimumu

Çevrimiçi deneyin!

APL (Dyalog Klasik) , 15 bayt

⌈/×∘(1=≢)⎕U2338

Çevrimiçi deneyin!

Yukarıdakilerle aynıdır, fakat ⎕U2338yerine kullanır ⌸.

Bash + coreutils, 30 28 bayt

Dijital Travma sayesinde -2 bayt

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

Çevrimiçi deneyin!

Bash + coreutils, 20 bayt

sort|uniq -u|tail -1

Çevrimiçi deneyin!

Girdi basamak listesi olarak verilirse, satır başına bir tane olursa, katlama aşamasını atlayabiliriz. Yine de hile yapmak gibi geliyor.

Python 2,39 bayt

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

Çevrimiçi deneyin!

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

using System.Linq;

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

Çevrimiçi deneyin!

@CarlosAlejo Teşekkürler

JavaScript (ES6), 52 50 bayt

Girdiyi basamak listesi olarak alır. 0Benzersiz basamak yoksa döndürür .

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

Test durumları

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 bayt

Girdiyi rakam dizisi olarak alır.

k@¬èX ÉÃrw

Dene

açıklama

     :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 bayt

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

Çevrimiçi deneyin!

-6 byte @ KevinCruijssen'in içgörüsü sayesinde!

APL (Dyalog) , 14 bayt

-2, TwiNight'a teşekkürler.

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

⌈/ en büyüğü

⊢ argümanlar

× çarpılır

1=(… ) Herkes için Boole eşit

 +/ satırın toplamı

 ∘.=⍨ eşitlik tablosu

Çevrimiçi deneyin!

PHP , 40 bayt

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

Çevrimiçi deneyin!

PHP , 42 bayt

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

Çevrimiçi deneyin!

Java (JDK) , 67 bayt

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

Çevrimiçi deneyin!

Mathematica, 42 bayt

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

F # , 88 bayt

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

Çevrimiçi deneyin!

İlk çabamdan geliştirilmiş bir yaklaşım, daha az baytla sonuçlanır.

İlgi çekici yerler: fstve sndsırasıyla ilk ve ikinci elemanın geri döndürülmesi.

Jöle , 9 bayt

ṢŒrṪỊ$ÐfṀ

Çevrimiçi deneyin!

Pyth, 6 bayt

eS.m/Q

Test odası

Açıklama:

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 bayt

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

Çevrimiçi deneyin!