Несподівано у нас не було просто «знайти найвищу цифру» виклик, але я думаю , що це трохи занадто тривіальним.

З огляду на введення невід'ємного цілого числа, поверніть найвищу унікальну (тобто не повторну) цифру, знайдену в цілому. Якщо немає унікальних цифр, ваша програма може зробити що завгодно (невизначена поведінка).

Введення можна сприймати як одне ціле число, рядок або список цифр.

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

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

Це код-гольф, тому виграє найменше байтів на кожній мові !

05AB1E , 4 3 байти

Збережено 1 байт завдяки повідомленню містера Xcoder, що список цифр є вхідним.

¢ÏM

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

Пояснення

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

Python 3 , 40 байт

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

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

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

42 байти

Працює як для рядка, так і для списку типів параметрів цифр. Здається помилка за відсутність унікальних цифр, таких зловживань щодо цієї характеристики:

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

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

Пояснення

• lambda i: - оголошує лямбда-функцію з рядком або списком цифр параметром i.
• max(...) - Знаходить максимальне значення генератора.
• x for x in i- взаємодіє через символи / цифри i.
• if i.count(x)<2 - Перевіряє, чи цифра унікальна.

Аліса , 15 байт

/&.sDo
\i-.tN@/

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

Пояснення

/...
\.../

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

i..DN&-sto@

Що це робить:

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.

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

O`.
(.)\1+

!`.$

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

Пояснення

O`.

Сортуйте цифри.

(.)\1+

Видаліть повторні цифри.

!`.$

Отримати останню (максимальну) цифру.

Вугілля деревне , 18 12 байт

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

Спробуйте в Інтернеті! (Посилання на багатослівну версію)

Нічого не друкується, якщо рішення не знайдено. Хитрість полягає в тому, що forцикл друкує кожне унікальне число у вхідному рядку, але не переміщуючи курсор, таким чином, значення продовжує передруковувати себе до остаточного рішення.

У попередній версії надруковано символи від A до Z, коли рішення не знайдено, звідси коментарі:

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

Спробуйте в Інтернеті! (Посилання на багатослівну версію)

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

→fo¬hgO

Спробуйте в Інтернеті! (Тестовий набір, виходить з ладу в останньому тестовому випадку, оскільки він не має унікальних цифр)

Це композиція функцій у точковому стилі (аргументи ніде чітко не згадуються). Приймає введення та повертає вихід у вигляді рядка, що в Husk еквівалентно списку символів.

Пояснення

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 проводиться, беручи заголовок списку (усі елементи, крім останнього), і відкидаючи його (порожні списки є хибними, непусті списки - правдивими).

Хаскелл, 37 байт

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

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

Як це працює:

  [  |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 байт

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

Анонімна функція, яка приймає список цифр, як цілі числа, так і окремі рядки символів. Це попереднє обчислення yяк необов'язковий аргумент, щоб уникнути використання фігурних дужок для тіла функції. Повертає цифру у вигляді рядка. Це вимагає дещо іншого підходу, ніж інша відповідь R, і, в кінцевому підсумку, є самим крихітним трохи коротшим! схоже, мій коментар був неправильним зрештою ...

tableобчислює входження кожного елемента у списку, при names(table(x))цьому унікальні значення x(у вигляді рядків). Оскільки цифри, на щастя, упорядковані тією ж лексикографічно, що і числово, ми все ще можемо використовувати max.

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

JavaScript (ES6), 46 41 40 байт

Вводиться як рядок. Повертає RangeError, якщо немає унікальних цифр.

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

-7 байт завдяки Ріку Хічкоку

-1 байт завдяки Шаггі

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

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 байт

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

Працює лише для списків цифр. Корпус кромки '990' працює чудово :)

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

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

ọtᵒtᵍhth

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

Пояснення

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

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

Дякую Лео за те, що він запропонував трохи акуратніше рішення при тому ж рахунку байтів.

▲‡ȯf=1`#

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

Пояснення

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

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

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

дякую @Martin Ender

ось підхід Мартіна щодо моєї відповіді

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

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

R, 45 43 байт

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

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

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

Змінено на анонімну функцію за коментарем

Рубін , 42 байти

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

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

APL (Dyalog Unicode) , 10 символів = 19 байт

Метод: множте елементи, які трапляються кілька разів на нуль, а потім виправте найвищий елемент.

⌈/×∘(1=≢)⌸

⌸ для кожного унікального елемента та його індексів у аргументі:

 × примножувати унікальний елемент

 ∘(… ) З:

  1= булевий для того, чи дорівнює один

  ≢ підрахунок індексів (скільки разів виникає унікальний елемент)

⌈/ макс

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

APL (Dyalog Classic) , 15 байт

⌈/×∘(1=≢)⎕U2338

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

Ідентичне вище, але використовує ⎕U2338замість ⌸.

Bash + coreutils, 30 28 байт

-2 байти завдяки цифровій травмі

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

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

Bash + coreutils, 20 байт

sort|uniq -u|tail -1

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

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

Python 2 , 39 байт

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

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

C # (.NET Core) , 27 97 86 58 57 75 байт

using System.Linq;

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

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

Дякую @CarlosAlejo

JavaScript (ES6), 52 50 байт

Вводиться як список цифр. Повертається, 0якщо немає унікальних цифр.

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

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

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 байт

Вводить дані як масив цифр.

k@¬èX ÉÃrw

Перевірте це

Пояснення

     :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 байт

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

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

-6 байт завдяки проникливості @ KevinCruijssen!

APL (Dyalog) , 14 байт

-2 завдякиTwiNight.

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

⌈/ найбільший з

⊢ аргументи

× помножений на

1=(... ) булевий для кожного, де дорівнює

 +/ рядкові суми

 ∘.=⍨ їх таблиця рівності

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

PHP , 40 байт

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

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

PHP , 42 байти

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

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

Java (JDK) , 67 байт

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

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

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

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

F # , 88 байт

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

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

Удосконалений підхід з моїх перших зусиль призводить до меншої кількості байт.

Пам'ятки: fstі sndповернути перші і другі елементи кортежу відповідно.

Желе , 9 байт

ṢŒrṪỊ$ÐfṀ

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

Pyth, 6 байт

eS.m/Q

Тестовий набір

Пояснення:

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 байт

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

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