Неожиданно у нас не было просто «найти самую высокую цифру» вызов, но я думаю , что это немного слишком тривиальным.

Если введено неотрицательное целое число, вернуть наибольшую уникальную (т.е. не повторяющуюся) цифру, найденную в целом числе. Если нет уникальных цифр, ваша программа может делать все что угодно (неопределенное поведение).

Входные данные могут быть приняты как одно целое число, строка или список цифр.

Контрольные примеры

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

Работает как для параметров типа String, так и для списка цифр. Выдает ошибку, если нет уникальных цифр.

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 выполняется путем взятия заголовка списка (все элементы, кроме последнего) и его отрицания (пустые списки ложные, непустые списки правдивые).

Haskell, 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 байт благодаря Shaggy

Контрольные примеры

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.  

Mathematica, 41 байт

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

спасибо @Martin Ender

вот подход Мартина к моему ответу

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

Попробуйте онлайн!

Mathematica, 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

Попробуйте онлайн!