সর্বাধিক অনন্য অঙ্ক সন্ধান করুন

Question

আশ্চর্যের বিষয় হ'ল আমাদের কাছে এখনও একটি সহজ "সর্বাধিক অঙ্কের সন্ধান" চ্যালেঞ্জ হয়নি, তবে আমি মনে করি এটি কিছুটা তুচ্ছ।

অ-নেতিবাচক পূর্ণসংখ্যার ইনপুট দেওয়া, পূর্ণসংখ্যার মধ্যে পাওয়া সর্বোচ্চ অনন্য (অর্থাত্ পুনরাবৃত্তি নয়) অঙ্কটি ফিরিয়ে দিন । যদি কোনও অনন্য অঙ্ক না থাকে তবে আপনার প্রোগ্রামটি কিছু করতে পারে (অপরিবর্তিত আচরণ)।

ইনপুটটি একটি একক পূর্ণসংখ্যা, একটি স্ট্রিং বা অঙ্কের তালিকা হিসাবে নেওয়া যেতে পারে।

পরীক্ষার মামলা

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

এই কোড-গলফ তাই অল্পসংখ্যক পরিষেবা বাইট প্রতিটি ভাষার মধ্যে জিতেছে!

Comments

আমরা কি পরিবর্তে স্ট্রিং হিসাবে ইনপুট নিতে পারি?

— ক্রিটসি লিথোস

সর্বশেষ পরীক্ষার কেস দেওয়া, আমি মনে করি আমরা স্ট্রিং হিসাবে ইনপুট নিতে বাধ্য হই ... (অগ্রণী শূন্যগুলি পূর্ণসংখ্যায় প্রতিনিধিত্ব করা যায় না)

— লিও

@ লিও যা আমার পক্ষে খারাপ ছিল, মূলত আমার কীবোর্ডের সংখ্যাগুলি ছাঁটাই, প্রথম শূন্যটি লক্ষ্য করে না। তবে হ্যাঁ, ইনপুটটি স্ট্রিং হিসাবে নেওয়া যেতে পারে

— স্কিডেদেব

@ অ্যাডম "অপরিজ্ঞাত আচরণ" এর অর্থ সাধারণত বাইটগুলি সংরক্ষণ করে তবে শূন্যস্থান থেকে নামহীন ভয়াবহতা ডেকে পাঠানো সহ আপনি যে কোনও কিছু করতে পারেন।

— মার্টিন ইন্ডার

@ মার্টিন ইন্ডার আসলে আপনার কোডটি কোনও অনন্য অঙ্ক নেই বলে যদি সাফল্যের সাথে চিতুলহুকে ডেকে পাঠায় আমি আনন্দের সাথে 50% বাইটটি ছুঁড়ে দেব;)

— স্কিডদেব

Answer 1

05 এ বি 1 ই , 4 3 বাইট

একটি অঙ্কের তালিকাটি বৈধ ইনপুট কিনা তা জানিয়ে মিঃ এক্সকোডারকে 1 বাইট ধন্যবাদ সংরক্ষণ করা হয়েছে ।

¢ÏM

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

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

Comments

05AB1E এ অপেক্ষা করুন, 2সত্য নয়; শুধু 1? : o

— হাইপারনিউটারিনো

@ হাইপারনিউটারিনো: সঠিক!

— Emigna

এটি খুব দরকারী এবং খুব বিরক্তিকর উভয়ই বলে মনে হচ্ছে ... এটি আকর্ষণীয়: ও: ডি

— হাইপারনিউট্রিনো

@ হাইপারনিট্রিনো: এটি প্রায়শই কাজে আসে তবে চ্যালেঞ্জ যখন সত্যবাদী মূল্য ফেরত দেয় তখন এটি অসুবিধে হতে পারে , যখন অনেকগুলি ভাষা কোনও ধনাত্মক পূর্ণসংখ্যা বা এমনকি খালি খালি স্ট্রিংও ফিরিয়ে দিতে পারে।

— Emigna

সংখ্যার উপর একটি স্ট্রাইকথ্রু দেখতে সহজ নয় !

— মিঃজান্ডার

Answer 2

পাইথন 3 , 40 বাইট

মুভিটিকা ধন্যবাদ 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: - একটি স্ট্রিং বা অঙ্কগুলির পরামিতির তালিকাগুলির সাথে ল্যাম্বডা ফাংশন ঘোষণা করে।
• max(...) - জেনারেটরের সর্বাধিক মান সন্ধান করে।
• x for x in i- এর অক্ষর / অঙ্কের মাধ্যমে পরিবেশন করা i।
• if i.count(x)<2 - অঙ্কটি অনন্য কিনা তা পরীক্ষা করে দেখুন।

Comments

40 বাইট:lambda i:max(x*(i.count(x)<2)for x in i)

— মুভিটিকা

@ মোভ্যাটিকা ধন্যবাদ!

— মিঃ এক্সকোডার

Answer 3

এলিস , 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.

Comments

-1, কোনও অনন্য অঙ্ক না থাকলে " শূন্য থেকে নামহীন ভয়াবহতা ডেকে আনে" না । ;) (পড়ুন: +1, বরাবরের মতো দুর্দান্ত উত্তর))

— কেভিন ক্রুইজসেন

@ কেভিন ক্রুইজসেন আমি চেষ্টা করেছি, কিন্তু এটি বাইট সংরক্ষণ করে নি। হতে পারে ডার্ক আরও উপযুক্ত ভাষা হতে পারে ...

— মার্টিন ইন্ডার

Answer 4

রেটিনা , 16 বাইট

O`.
(.)\1+

!`.$

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

O`.

অঙ্কগুলি বাছাই করুন।

(.)\1+

পুনরাবৃত্ত অঙ্কগুলি সরান।

!`.$

সর্বশেষ (সর্বাধিক) অঙ্কটি আনুন।

Comments

খুব খারাপ ডুপ্লিকেট এখানে সহায়তা করে না :(

— ক্যালকুলেটরফলাইন

Answer 5

কাঠকয়লা , 18 12 বাইট

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

এটি অনলাইন চেষ্টা করুন! (ভার্বোজের সংস্করণে লিঙ্ক)

কোনও সমাধান না পাওয়া গেলে কিছুই মুদ্রণ করে না। কৌশলটি হ'ল forলুপটি প্রতিটি অনন্য সংখ্যাকে ইনপুট স্ট্রিংয়ে মুদ্রণ করে তবে কার্সারটি না সরিয়ে এইভাবে চূড়ান্ত সমাধান না পাওয়া পর্যন্ত মানটি পুনরায় মুদ্রণ করে চলে।

পূর্ববর্তী সংস্করণটি A থেকে Z অক্ষরগুলি মুদ্রিত করেছিল যখন কোনও সমাধান পাওয়া যায় নি, সুতরাং মন্তব্যগুলি:

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

এটি অনলাইন চেষ্টা করুন! (ভার্বোজের সংস্করণে লিঙ্ক)

Comments

এটি একটি আকর্ষণীয় অপরিবর্তিত আচরণ :)

— এমিগানা

এটি আমার কাছে ফিনিশ শোনায়: D

— fedorqui

@ ফেডরকিই আপনাকে এখানে দেখে ভাল লাগল! হ্যাঁ, তবে চারকোল জেলি বা O5AB1E এর চেয়ে বেশি শিখতে সহজ, এবং এটি ASCII- আর্ট গেমগুলিতে ব্যবহার করা মজাদার। :-)

— চার্লি

Answer 6

কাস্তে , 7 বাইট

→fo¬hgO

এটি অনলাইন চেষ্টা করুন! (টেস্ট স্যুট, শেষ পরীক্ষার ক্ষেত্রে ক্র্যাশ হয়েছে কারণ এর কোনও অনন্য অঙ্ক নেই)

এটি বিন্দু মুক্ত শৈলীতে ফাংশনের একটি সংমিশ্রণ (যুক্তিগুলি কোথাও স্পষ্টভাবে উল্লেখ করা হয়নি)। ইনপুট নেয় এবং স্ট্রিং হিসাবে আউটপুট দেয়, যা হুস্কে অক্ষরের তালিকার সমান।

ব্যাখ্যা

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 টি পরীক্ষা করে তালিকার শীর্ষস্থানীয় (শেষটি ব্যতীত সমস্ত উপাদান) এবং এটিকে উপেক্ষা করে করা হয় (খালি তালিকা মিথ্যা, খালি খালি তালিকা সত্যবাদী)।

Answer 7

হাস্কেল, 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

Answer 8

আর , 41 বাইট

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

একটি বেনাম ফাংশন যা পূর্ণসংখ্যার বা একক অক্ষরের স্ট্রিং হিসাবে অঙ্কের তালিকা নিয়ে থাকে। এটি yফাংশন বডি জন্য কোঁকড়ানো ধনুর্বন্ধনী ব্যবহার এড়ানোর জন্য একটি alচ্ছিক যুক্তি হিসাবে প্রাক্পম্পট করে। স্ট্রিং হিসাবে অঙ্কটি ফেরত দেয়। এটি অন্য আর উত্তরের চেয়ে কিছুটা ভিন্ন পদ্ধতির গ্রহণ করে এবং সবচেয়ে ক্ষুদ্রতম বিট সংক্ষিপ্ত হিসাবে শেষ হয়! আমার মন্তব্য দেখে মনে হচ্ছে এখানে ভুল ছিল ...

table(স্ট্রিং হিসাবে) এর names(table(x))স্বতন্ত্র মান xহিসাবে তালিকার প্রতিটি উপাদানের উপস্থিতি গণনা করে । যেহেতু অঙ্কগুলি ভাগ্যক্রমে সংখ্যার মতো একই অভিধানের অর্ডার দেয় তাই আমরা এখনও ব্যবহার করতে পারি max।

এটি অনলাইন চেষ্টা করুন!

Comments

নিস! আমি আশা করি না যে এর সাথে কিছু tableকরা কম হবে (প্লাস আমি কীভাবে namesকাজ করতে পারি তা কখনই মনে করতে পারি না )।

— এপল্ট

<2অন্য বাইট জন্য। গণনাগুলিতে কখনই শূন্য হওয়া উচিত নয়।

— মিকিটি

y=table(scan());max(names(y[y<2]))কয়েক বাইট সংক্ষিপ্ত।

— জেএড

Answer 9

জাভাস্ক্রিপ্ট (ES6), 46 41 40 বাইট

স্ট্রিং হিসাবে ইনপুট নেয়। কোনও অনন্য অঙ্ক না থাকলে রেঞ্জেরর ফেরত দেয়।

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

Comments

39 বাইট জন্য সতর্কতার সরান: (s,i=9)=>s.split(i).length-2?f(s,--i):i। আপনি 42 বাইট জন্য স্ট্যাক ওভারফ্লো এড়াতে পারেন: (s,i=9)=>s.split(i).length-2?i&&f(s,--i):i।

— রিক হিচকক

কারিঙ সহ একটি বাইট সংরক্ষণ করুন: s=>g=(i=9)=>s.split(i).length-2?g(--i):iএবং এর সাথে কল করুনf("12")()

— শেগি

Answer 10

পাইথন 3, 40 বাইট

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

শুধুমাত্র অঙ্কের তালিকার জন্য কাজ করে। প্রান্তের মামলা '990' ভাল কাজ করে :)

এটি অনলাইন চেষ্টা করুন!

Comments

পিপিসিজিতে আপনাকে স্বাগতম! দেখে মনে হচ্ছে আপনি সবকিছু নামিয়ে দিয়েছেন :)

— স্টিফেন

Answer 11

ব্র্যাচল্যাগ , 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

Answer 12

ঝাঁকুনি , 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.  

Comments

¬←=1যদিও আরও সহজভাবে , একই বাইকাউন্ট হতে পারে :)

— লিও

@ লিও আঃ হ্যাঁ, কারিটিংগুলি প্রথম বন্ধনী ছাড়াই কাজ করবে কিনা তা পরীক্ষা করতে আমার খুব অলসতা ছিল। টাইপ অনুমানের উপর আমার আরও বিশ্বাস করা দরকার। ;)

— মার্টিন ইন্ডার

Answer 13

গণিত, 41 বাইট

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

ধন্যবাদ @ মার্টিন ইন্ডার

আমার উত্তর সম্পর্কে মার্টিনের দৃষ্টিভঙ্গি এখানে

গণিত, 35 বাইট

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

Answer 14

আর, 45 43 বাইট

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

এটি অনলাইন চেষ্টা করুন!

পূর্ণসংখ্যার ভেক্টর হিসাবে ইনপুট নেয়। সদৃশ উপাদানগুলি সন্ধান করে, সেগুলি সরিয়ে দেয় এবং সর্বাধিক গ্রহণ করে। ( -Infকোনও অনন্য সর্বাধিক না হলে সতর্কবার্তা দিয়ে ফিরে আসে )

মন্তব্য অনুসারে একটি বেনামে সম্পাদিত

Comments

max(x[!duplicated(x)])বেশ খানিকটা খাটো, তবে এটি দুর্দান্ত উত্তর। আমি জানি যেভাবে আমি এটি করতে যাচ্ছি এটি ভাল ছিল না। এছাড়াও আপনি গোড়া f=থেকে মুছে ফেলতে পারেন , কারণ বেনাম ফাংশনগুলি পুরোপুরি বৈধ উত্তর। এছাড়াও, আপনি যদি এই ফর্ম্যাটটি ব্যবহার করেন তবে আপনার ফাংশনগুলি পরীক্ষা করতে টিআইও ব্যবহার করতে পারেন: এটি অনলাইনে চেষ্টা করুন!

— জিউসেপ

ধন্যবাদ! আমি মনে করি যে 'সদৃশ' ফাংশনটি নকল উপাদানটির প্রথম উপস্থিতি গণনা করে না যাতে আপনার সংস্করণটি বেশ কার্যকর না হয়

— এপল্ট

আহ, ভাল পয়েন্ট। আমি প্রায় কখনও ব্যবহার করি না duplicatedতবে আমি আসলেই অন্য একটি, ছোট্ট উত্তরটি ভেবে দেখেছি!

— জিউসেপ

Answer 15

রুবি , 42 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

রুবি পাইথন

— বাঁধল

কারণ 42 সর্বদা উত্তর। :-)

— জিবি

@ জিবি এটি বা এটি:->x{x.chars.select{|r|x.count(r)<2}.max}

— মার্টিন এন্ডার

এটি 2 বাইট সংক্ষিপ্ত হবে এবং পুরো জিনিসটি নষ্ট করবে। :-)

— জিবি

Answer 16

এপিএল (ডায়ালগ ইউনিকোড) , 10 টি অক্ষর = 19 বাইট

পদ্ধতি: একাধিকবার শূন্য দ্বারা ঘটে এমন উপাদানগুলি গুণান এবং তারপরে সর্বোচ্চ উপাদানটি সূক্ষ্ম করুন।

⌈/×∘(1=≢)⌸

⌸ যুক্তিতে প্রতিটি অনন্য উপাদান এবং এর সূচকগুলির জন্য:

 × অনন্য উপাদান গুন

 ∘(... ) সাথে:

  1= এক সমান কিনা এর জন্য বুলিয়ান

  ≢ সূচকের পরিমাণ (অনন্য উপাদানটি কতবার ঘটে)

⌈/ সর্বাধিক

এটি অনলাইন চেষ্টা করুন!

এপিএল (ডায়ালগ ক্লাসিক) , 15 বাইট

⌈/×∘(1=≢)⎕U2338

এটি অনলাইন চেষ্টা করুন!

উপরের মতো একই, তবে এর ⎕U2338পরিবর্তে ব্যবহার করে ⌸।

Answer 17

বাশ + কোর্টিলস, 30 28 বাইট

-2 বাইট ডিজিটাল ট্রমা ধন্যবাদ

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

এটি অনলাইন চেষ্টা করুন!

---

বাশ + কোর্টিলস, 20 বাইট

sort|uniq -u|tail -1

এটি অনলাইন চেষ্টা করুন!

যদি ইনপুট অঙ্কের তালিকা হিসাবে দেওয়া হয়, প্রতি লাইন এক, আমরা ভাঁজ পর্যায়ে এড়িয়ে যেতে পারি। যদিও প্রতারণার মতো মনে হচ্ছে।

Comments

প্রতিস্থাপন grep -o .সঙ্গে fold -12 সংরক্ষণ করুন বাইট। আমি সম্মত হই যে অঙ্কগুলির তালিকা হিসাবে প্রদত্ত একটি ইনপুট পূর্ণসংখ্যার নিয়মগুলি খুব বেশি প্রসারিত করা হয়।

— ডিজিটাল ট্রমা

এটি বাশ হওয়ার কারণে +1

— আনুশ

Answer 18

পাইথন 2 , 39 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

আমি এটি উপভোগ করেছি, দুর্দান্ত!

— আনুশ

Answer 19

সি # (.নেট কোর) , 27 97 86 58 57 75 বাইট

using System.Linq;

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

এটি অনলাইন চেষ্টা করুন!

ধন্যবাদ @ কার্লোস আলেজো

Comments

এটি "1948710498" এর সাথে ইনপুট হিসাবে কাজ করে না ("7" এর পরিবর্তে "9" প্রদান করবে) এবং আপনাকে অবশ্যই using System.Linq;বাইট গণনায় যুক্ত করতে হবে ।

— চার্লি

নিবন্ধন করুন দুঃখিত! সবেমাত্র স্পেসিফিকেশন পুরোপুরি পড়ুন। সমাধানটি শীঘ্রই সম্পাদনা করবে।

— কাকারোট

সম্পাদনা করা হয়েছে। আমি করতে পারেন এমন কোন অপ্টিমেশন আছে?

— কাকারোট

অবশ্যই: উদাহরণস্বরূপ, এর OrderBy(...).Last()পরিবর্তে ব্যবহার করার চেষ্টা করুন .OrderByDescending(...).First()। বা আরও ভাল, ক্লজ .Max(i=>i.Key)পরে আপনার শেষ অংশ পরিবর্তন করুন Where।

— চার্লি

@ কার্লোস আলেজো ধন্যবাদ! সম্পাদনা করা হয়েছে।

— কাকারোট

Answer 20

জাভাস্ক্রিপ্ট (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

Answer 21

জাপট , 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.

Answer 22

জাভা (ওপেনজেডকে 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 বাইট ধন্যবাদ!

Comments

আপনি প্রতিস্থাপন করতে পারেন return i>0?i:0;সঙ্গে return i;। আউটপুটটি পরীক্ষার ক্ষেত্রে -1 হবে [9,9,9,9,9,9], তবে এটি চ্যালেঞ্জের সাথে ঠিক আছে : " যদি কোনও অনন্য সংখ্যা না থাকে, আপনার প্রোগ্রামটি কিছু করতে পারে (অপরিবর্তিত আচরণ) "।

— কেভিন ক্রুইজসেন

প্রকৃতপক্ষে, আমি বর্তমান সংশোধন থেকে। টেস্ট কেসের কারণে আগে পারিনি 0। এটি আমি পূর্বের গল্ফের তদারকি করা কিছু! :)

— অলিভিয়ার গ্রাগোয়ার

Answer 23

এপিএল (ডায়ালগ) , 14 বাইট

টু নাইট -2 ধন্যবাদ।

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

⌈/ এর মধ্যে সবচেয়ে বড়

⊢ যুক্তি

× দ্বারা গুণিত

1=(… ) প্রত্যেকের সমান যেখানে বুলিয়ান

 +/ সারি যোগফল

 ∘.=⍨ তাদের সমতা টেবিল

এটি অনলাইন চেষ্টা করুন!

Comments

যেহেতু নিজে 0ব্যতীত কখনই সর্বোচ্চ অনন্য অঙ্ক 0নয়, আপনি ×তার পরিবর্তে 1 বাইট সংরক্ষণ করতে পারবেন /⍨, তারপরে অন্য একটি বাইট সংরক্ষণ করুন ট্রেনে রূপান্তরিত করুন

— টুইনিট

টুইটারে ধন্যবাদ.

— অ্যাডম

Answer 24

পিএইচপি , 40 বাইট

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

এটি অনলাইন চেষ্টা করুন!

পিএইচপি , 42 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

-2 বাইট:<?=array_flip(count_chars($argn))[1]-48;

— টাইটাস

Answer 25

জাভা (জেডিকে) , 67 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Answer 26

গণিত, 42 বাইট

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

Answer 27

এফ # , 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যথাক্রমে একটি টুপলের প্রথম এবং দ্বিতীয় উপাদানগুলি ফেরত দিন।

Answer 28

জেলি , 9 বাইট

ṢŒrṪỊ$ÐfṀ

এটি অনলাইন চেষ্টা করুন!

Comments

ভাল

— ফুটো নুন

@ লেকিউন ছাড়িয়ে গেলেন, ছেলে

— স্কিডসদেব

@ মায়ুব তবে মূল অ্যালগরিদম একই

— লিকি নুন

@ লিকি নন, এটি একেবারেই আলাদা different

— স্টেনবার্গ

@ ল্যাকইনুন আমি আলাদাভাবে পোস্ট করার সিদ্ধান্ত নিয়েছিলাম ... মূলত একটি বড় পার্থক্য হ'ল আমার ক্ষেত্রে আমি ঠিক করবো কোনটি রাখা উচিত, যখন স্টেইনবার্গ কিছু মাথা বা কিছু নিয়ে যায় ...

— এরিক দ্য আউটগোল্ফার

Answer 29

পাইথ, 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.

Answer 30

পার্ল 5 , 59 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

40 বাইটে সংক্ষিপ্ত: অনলাইনে চেষ্টা করুন! । (প্রয়োজনে আপনি পার্ল্রুনে-F পতাকা দেখতে পারেন)

— দাদা