놀랍게도 우리는 단순하지만 도전 "가장 높은 자리를 찾을 수"를 가지고하지 않은,하지만 제 생각에 조금 너무 사소한.

음수가 아닌 정수를 입력 하면 정수에서 찾은 가장 높은 고유 (즉, 반복되지 않는) 숫자를 반환합니다 . 고유 한 숫자가 없으면 프로그램은 무엇이든 할 수 있습니다 (정의되지 않은 동작).

입력은 단일 정수, 문자열 또는 숫자 목록으로 취할 수 있습니다.

테스트 사례

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

이것은 코드 골프 이므로 각 언어에서 가장 적은 바이트 가 이깁니다!

05AB1E , 4 3 바이트

숫자 목록이 유효한 입력 임을 알려주는 Mr. Xcoder 덕분에 1 바이트를 절약했습니다 .

¢ÏM

온라인으로 사용해보십시오!

설명

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

파이썬 3 , 40 바이트

movatica 덕분에 2 바이트를 절약했습니다 .

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 -숫자가 고유한지 확인합니다.

Alice , 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.

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 46 41 40 바이트

입력을 문자열로받습니다. 고유 숫자가 없으면 RangeError를 반환합니다.

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

Rick Hitchcock 덕분에 -7 바이트

Shaggy 덕분에 -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

파이썬 3, 40 바이트

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

자릿수 목록에서만 작동합니다. 가장자리 케이스 '990'은 잘 작동합니다 :)

온라인으로 사용해보십시오!

Brachylog , 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 바이트

동일한 바이트 수로 약간 더 깔끔한 솔루션을 제안 해 준 Leo에게 감사합니다.

▲‡ȯ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

여기 내 대답에 대한 Martin의 접근법이 있습니다.

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 바이트

방법 : 여러 번 발생하는 요소에 0을 곱한 다음 가장 높은 요소를 세분화하십시오.

⌈/×∘(1=≢)⌸

⌸ 인수의 각 고유 요소 및 해당 색인에 대해

 × 독특한 요소를 곱하다

 ∘(... ) 과 :

  1= 1이 같은지 여부에 대한 부울

  ≢ 인덱스 집계 (고유 요소가 몇 번이나 발생하는지)

⌈/ 그 최대

온라인으로 사용해보십시오!

APL (Dyalog Classic) , 15 바이트

⌈/×∘(1=≢)⎕U2338

온라인으로 사용해보십시오!

위와 동일하지만 ⎕U2338대신 사용 합니다 ⌸.

Bash + coreutils, 30 28 바이트

Digital Trauma 덕분에 -2 바이트

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

온라인으로 사용해보십시오!

배쉬 + coreutils, 20 바이트

sort|uniq -u|tail -1

온라인으로 사용해보십시오!

입력을 한 줄에 하나씩 숫자 목록으로 제공하면 접기 단계를 건너 뛸 수 있습니다. 그래도 속임수처럼 느껴집니다.

파이썬 2 , 39 바이트

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

온라인으로 사용해보십시오!

C # (. NET 코어) , 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

자바 스크립트 (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.

자바 (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;}

온라인으로 사용해보십시오!

@KevinCruijssen의 통찰력 덕분에 -6 바이트!

APL (Dyalog) , 14 바이트

TwiNight 덕분에 -2.

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

⌈/ 가장 큰

⊢ 논쟁

× 곱한

1=(… ) 각각의 부울

 +/ 행 합

 ∘.=⍨ 평등 테이블

온라인으로 사용해보십시오!

PHP , 40 바이트

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

온라인으로 사용해보십시오!

PHP , 42 바이트

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

온라인으로 사용해보십시오!

자바 (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각각 튜플의 제 1 및 제 2 요소를 반환합니다.

젤리 , 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.

펄 5 , 59 바이트

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

온라인으로 사용해보십시오!