น่าแปลกที่เรายังไม่มีการท้าทาย "ค้นหาตัวเลขที่สูงที่สุด" ง่าย ๆ แต่ฉันคิดว่านั่นเป็นเรื่องเล็กน้อยเกินไป

รับอินพุตของจำนวนเต็มแบบไม่ลบให้คืนค่าหลักที่ไม่ซ้ำกันสูงสุด(เช่นไม่ซ้ำ) ที่พบในจำนวนเต็ม หากไม่มีตัวเลขที่ไม่ซ้ำกันโปรแกรมของคุณสามารถทำอะไรก็ได้ (พฤติกรรมที่ไม่ได้กำหนด)

อินพุตสามารถนำมาเป็นจำนวนเต็มเดียวสตริงหรือรายการตัวเลข

กรณีทดสอบ

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

นี่คือโค้ดกอล์ฟที่มีจำนวนน้อยที่สุดในแต่ละภาษาที่ชนะ!

05AB1E , 4 3 ไบต์

บันทึก 1 ไบต์ต้องขอบคุณMr. 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- iterates ผ่านตัวอักษร / iตัวเลขของ
• if i.count(x)<2 - ตรวจสอบว่าตัวเลขนั้นไม่ซ้ำกัน

อลิซ 15 ไบต์

/&.sDo
\i-.tN@/

ลองออนไลน์!

คำอธิบาย

/...
\.../

นี่เป็นกรอบง่าย ๆ สำหรับรหัสเชิงเส้นที่ทำงานทั้งหมดในโหมด Ordinal (หมายถึงโปรแกรมนี้ทำงานได้อย่างสมบูรณ์ผ่านการประมวลผลสตริง) โค้ดเชิงเส้นที่กางออกนั้นเป็นเพียง:

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 ไบต์

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

ลองออนไลน์! (ลิงก์ไปยังรุ่น verbose)

พิมพ์อะไรถ้าไม่พบวิธีแก้ปัญหา เคล็ดลับคือการforวนซ้ำพิมพ์หมายเลขเฉพาะทุกตัวในสตริงอินพุต แต่ไม่มีการเลื่อนเคอร์เซอร์ดังนั้นค่าจะพิมพ์ซ้ำตัวเองจนกว่าจะพบโซลูชันสุดท้าย

รุ่นก่อนหน้าพิมพ์อักขระ A ถึง Z เมื่อไม่พบวิธีแก้ไขดังนั้นความคิดเห็น:

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

ลองออนไลน์! (ลิงก์ไปยังรุ่น verbose)

Husk , 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]))

ฟังก์ชันที่ไม่ระบุชื่อที่รับรายการตัวเลขไม่ว่าจะเป็นจำนวนเต็มหรือสตริงอักขระเดี่ยว มัน precomputes yเป็นอาร์กิวเมนต์ตัวเลือกเพื่อหลีกเลี่ยงการใช้วงเล็บปีกกาสำหรับร่างกายฟังก์ชั่น ส่งคืนตัวเลขเป็นสตริง วิธีนี้ใช้วิธีที่แตกต่างเล็กน้อยกว่าคำตอบ R อื่นและจบลงด้วยการที่สั้นที่สุดเล็กน้อย! ดูเหมือนความคิดเห็นของฉันมีผิดหลังจากทั้งหมด ...

tableคำนวณการเกิดขึ้นของแต่ละองค์ประกอบในรายการโดยnames(table(x))เป็นค่าที่ไม่ซ้ำกันในx(เป็นสตริง) เนื่องจากตัวเลขมีการสั่งซื้อโชคดีเหมือนกัน lexicographically maxเป็นตัวเลขที่เรายังสามารถใช้

ลองออนไลน์!

JavaScript (ES6), 46 41 40 ไบต์

รับอินพุตเป็นสตริง ส่งคืน RangeError ถ้าไม่มีตัวเลขที่ไม่ซ้ำกัน

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

-7 ไบต์ขอบคุณ Rick Hitchcock

-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' ใช้งานได้ดี :)

ลองออนไลน์!

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

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

นี่คือวิธีการของ 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 ไบต์

วิธีการ: องค์ประกอบคูณที่เกิดขึ้นหลายครั้งโดยศูนย์และจากนั้นปรับองค์ประกอบสูงสุด

⌈/×∘(1=≢)⌸

⌸ สำหรับแต่ละองค์ประกอบที่ไม่ซ้ำกันและดัชนีของมันในการโต้แย้ง:

 × คูณองค์ประกอบที่เป็นเอกลักษณ์

 ∘(... ) กับ:

  1= บูลีนว่ามีค่าเท่ากันหรือไม่

  ≢ tally ของดัชนี (กี่ครั้งที่องค์ประกอบที่ไม่ซ้ำกันเกิดขึ้น)

⌈/ สูงสุดของที่

ลองออนไลน์!

APL (Dyalog Classic)ขนาด 15 ไบต์

⌈/×∘(1=≢)⎕U2338

ลองออนไลน์!

เหมือนกันกับข้างต้น แต่ใช้แทน⎕U2338⌸

Bash + coreutils, 30 28 ไบต์

-2 ไบต์ขอบคุณDigital Trauma

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 bytes

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

F#, 88 bytes

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

Try it online!

An improved approach from my first effort, results in less bytes.

Points of interest: fst and snd return the first and second elements of a tuple respectively.

Jelly, 9 bytes

ṢŒrṪỊ$ÐfṀ

Try it online!

Pyth, 6 bytes

eS.m/Q

Test suite

Explanation:

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 bytes

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

Try it online!