অদ্ভুত আউট: অক্ষর

11

উদ্দেশ্য

এলোমেলো আকারের ম্যাট্রিক্সে বিজোড় বর্ণটি বাছাই করে এমন একটি প্রোগ্রাম বা ফাংশন (বা সমমানের) লিখুন।

বিস্তারিত

এ জাতীয় এলোমেলো মাত্রার ইনপুট হিসাবে আপনাকে একটি ম্যাট্রিক্স (স্ট্রিং হিসাবে) পাস করা হবে।

bbbbbbbbbb
bbbbbdbbbb
bbbbbbbbbb
bbbbbbbbbb
bbbbbbbbbb

আপনার কাজটি সেই চিঠিটি খুঁজে পাওয়া যা বাকীটির সাথে মেলে না (এটি ক্ষেত্রে এটি dলাইন 2, কর্নেল 6 এ পাওয়া যায়) এবং সেই চিঠিটি আউটপুট হিসাবে ফিরিয়ে দেওয়া। ম্যাট্রিক্সে অক্ষর A-Z, a-zনিউলাইনস ( \nকেবল সারিগুলির শেষ প্রান্তে) থাকবে এবং এর 5x5 থেকে 10x10 (25-100 বর্ণ) পর্যন্ত মাত্রা থাকবে।

স্ট্যান্ডার্ড লুফোলস প্রযোজ্য। এটি একটি কোড গল্ফ চ্যালেঞ্জ; সর্বনিম্ন বাইট জিতের কোড সহ এন্ট্রি।

ইনপুট

ইনপুটটি স্ট্রিং হিসাবে স্ট্যান্ডার্ড ইনপুট দিয়ে পাস করা হবে যদি এটি কোনও প্রোগ্রাম হয় বা কোনও ফাংশন (বা অনুরূপ) হয় তবে আর্গুমেন্ট হিসাবে।

আউটপুট

একটি একক চরিত্র যে, "বিজোড়" ম্যাট্রিক্স মধ্যে বা None , nil, NUL, বা স্ট্রিং "None"না "বিজোড়" চরিত্র আছে পারেন।

আরও উদাহরণ

AAAAAAA
AAAAAAA
AAAAAAA
AAAIAAA
AAAAAAA

উত্তর: I

vvqvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv
vvvvvvvvvv

উত্তর: q

puuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu
uuuuuuuuu

উত্তর: p

উত্পাদক

পাইথনে রচিত এলোমেলো ম্যাট্রিক্স জেনারেটর যা আপনি আপনার প্রোগ্রামটি পরীক্ষা করতে ব্যবহার করতে পারেন। দ্রষ্টব্য: একটি সামান্য সম্ভাবনা রয়েছে যে এটি ভুল করতে পারে এবং একটি বিজোড় চিঠিটি না রাখে।

কোড স্নিপেট দেখান

code-golf  sorting  matrix  alphabet 
— juniorRubyist
সূত্র
1
এখানে আপনার পাইথন কোডটির আক্ষরিক অনুবাদ জেএসে দেওয়া হল।
— আর্নৌল্ড
1
@ জুনিয়ররুবিস্ট "বোনাস অপসারণ" "বোনাসকে বাধ্যতামূলক করা" এর মত নয়। এখন পর্যন্ত .চ্ছিক যে অংশটি চ্যালেঞ্জের প্রয়োজনীয়তার মধ্যে ফেলেছিল সেগুলি সরিয়ে আপনি বিদ্যমান উত্তরের একটি বৃহত অংশ অবৈধ করেছেন।
— মার্টিন ইন্ডার

উত্তর:

6

জে , 12 10 7 বাইট

-.}./.~

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

    /.~        Group identical items together
  }.           Remove one item from each group
-.             Remove the rest from the input

10 বাইট সংস্করণ

-._1 1{\:~

hisss ...

       \:~        Sort down
  _1 1{           Take the last character (which is a newline) and the second one.
-.                Remove those from the input
— FrownyFrog
সূত্র
2
@ FrownyFrog এই অদ্ভুত চরিত্র খুঁজে বের করার একটি চালাক উপায়
— গ্যালেন ইভানভ
আমি কী পছন্দ করি তা ঠিক করতে পারছি না: এই সুন্দর হুক বা আপনার ড্রাগনের রসিকতা ...
— জোনা
4

ব্র্যাচল্যাগ , 8 4 বাইট

oḅ∋≠

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

ব্যাখ্যা

আমি এর আগে ব্র্যাচল্যাগ ব্যবহার করিনি, সুতরাং এটি অনুকূল নাও হতে পারে।

oḅ∋≠  Input is a string.
o     Sort the input.
 ḅ    Split it into blocks of equal elements.
  ∋   There is a block
   ≠  whose elements are all different.
      That block is the output.
— Zgarb
সূত্র
দৈর্ঘ্য 1 এর ফলাফল পেতে তার ∋≠পরে ব্যবহারটি ḅখুব চালাক। আপনার অবশ্যই এটি ব্র্যাচল্যাগ টিপসের প্রশ্নে পোস্ট করা উচিত ।
— ফ্যাটালাইজ করুন
@ ফ্যাটালাইজ ধন্যবাদ, আমি টিপ যোগ করেছি।
— Zgarb
3

কে (ওকে) , 7 6 বাইট

সমাধান

*<#:'=

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

উদাহরণ:

*<#:'="vvqvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv"
"q"

ব্যাখ্যা:

কিছুটা সংক্ষিপ্ত পদ্ধতির সন্ধান পেয়েছে: ডান থেকে বামে মূল্যায়ন করা:

*<#:'= / the solution
     = / group matching items together
  #:'  / count (#:) each (')
 <     / sort ascending
*      / take the first one

মন্তব্য:

যদিও আমি এই চ্যালেঞ্জের বোনাসের দিকটি বাদ পড়ার প্রত্যাশা করছি, কোনও জটিল চরিত্র না \nথাকলে এই সমাধানটি নতুন লাইনের চরিত্রটি ফিরিয়ে দেবে :

*<#:'="vvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv\nvvvvvvvvvv"
"\n"
— streetster
সূত্র
3

প্রোলোগ (এসডাব্লুআই) , 46 বাইট

p(L):-select(X,L,Y),\+member(X,Y),writef([X]).

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

অথবা যদি প্রোলোগ ক্যোয়ারীগুলি থেকে মানক সত্য আউটপুট ঠিক না থাকে:

প্রোলোগ (এসডাব্লুআই) , 48 বাইট

Z*L:-select(X,L,Y),\+member(X,Y),char_code(Z,X).

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

ব্যাখ্যা

Find the first element X in the input  
that when removed, results in output  
that does not contain X

then depending on the version above either:  
print X as a character  
or  
return X as an atom
— Emigna
সূত্র
3

সি (জিসিসি) , 93 92 90 66 62 বাইট

একটি ফাংশন হিসাবে অনেক খাটো

t;f(char*p){for(t=*p;*p;)t^*p++?putchar(*p^*--p?*p:t),*p=0:0;}

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

পরীক্ষার কোড

main()
{
    char s[99];
    for(;gets(s);)f(s);
}

পুরানো সংস্করণ একটি প্রোগ্রাম

সি 86 বাইট

char*p;s[9];main(t){for(;p=gets(s);)for(t=*p;*p;)t^*p++?putchar(*p^*--p?*p:t),*p=0:0;}

বিজোড় চরিত্রটি আউটপুট দেয় বা কিছুই না। এভাবে চালাও;

C:\eng\golf>python matrix_gen.py | a.exe
X
C:\eng\golf>python matrix_gen.py | a.exe
G
C:\eng\golf>python matrix_gen.py | a.exe
x
C:\eng\golf>python matrix_gen.py | a.exe

C:\eng\golf>python matrix_gen.py | a.exe
J
— cleblanc
সূত্র
আমি জানি না যে এটি gets()পরীক্ষা চালক হিসাবে রাখা আপনার পক্ষে যথেষ্ট is এটি এমন কিছু কাজ করছে যাতে আপনার ফাংশনটি মূল ইনপুটটিতে কাজ না করে।
— মাইকেল ডরগান
@ মিশেলডোরগান এটি পাইথন স্ক্রিপ্ট থেকে পাইপযুক্ত ইনপুট পাশাপাশি টিআইওতে ইনপুট নিয়ে কাজ করে। অন্যরা সহজেই ইনপুটটিকে হার্ড-কোডড করে দেয় যা চ্যালেঞ্জের মনোভাবের সাথে দেখা যায় না।
— ক্লাব্ল্যাঙ্ক
3

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

আদনানকে ধন্যবাদ 2 বাইট সংরক্ষণ করা

.m

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

ব্যাখ্যা

.m   # push a list of the least frequent character(s) in input
— Emigna
সূত্র
আপনার কি নতুনলাইনগুলি সরিয়ে ফেলতে হবে, যেমন আমাদের নিশ্চিত হয়েছে যে ইনপুটটি কমপক্ষে 5 লাইন দীর্ঘ হবে?
— শেগি
@ শেগি: না আমি তা করি না। তা ছিল 2x2ম্যাট্রিক্স পরিচালনা করা । আমি অংশটি প্রায় হারিয়েছি 5x5। ধন্যবাদ!
— এমিগানা
এটি nil"বিজোড় আউট" না থাকলে ফিরে আসতে হবে?
— ম্যাজিক অক্টোপাস উরন
@ ম্যাজিক অ্যাক্টপাস ইউরান এই উত্তরটি পোস্ট করার সময় part অংশটি alচ্ছিক ছিল। আমার ধারণা যে পরিবর্তনটি এখন বেশিরভাগ উত্তরকে অকার্যকর করে দেয় ...
— মার্টিন ইন্ডার
2

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

◄=

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

এটি ইনপুট হিসাবে একটি স্ট্রিং গ্রহণ করে এবং একটি অক্ষর ফিরিয়ে ফাংশন। সাম্যের জন্য বর্ণগুলির তুলনা করার সময় এটি ইনপুট স্ট্রিংয়ের সর্বনিম্ন সময় নেয় (যেমন এটি অন্যান্য অক্ষরের ন্যূনতম সংখ্যার সমান অক্ষরটি প্রদান করে)।

— সিংহরাশি
সূত্র
2

সি, 94 বাইট

পয়েন্টার দিয়ে ফিরে। যদি কিছু না হয় তবে ফিরে আসুন \0।

এর ফলে স্মৃতি ফাঁস হবে। ধরে intনেওয়া 4 বাইট

*t;f(c,p,i)char*c,*p;{t=calloc(64,8);for(*p=-1;*c;c++)t[*c]--;for(i=0;++i<128;)!~t[i]?*p=i:0;}

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

— কোলেরা সু
সূত্র
2
— শেগি
@ শেগি প্রকৃতপক্ষে, আমি কীভাবে এই নিয়মটির ব্যাখ্যা করতে জানি না, কারণ আমি দেখছি কিছু (অন্যান্য) ব্যবহারকারীরা এই বিধি সম্পর্কে স্পষ্টভাবে জানেন তবে এখনও এই জাতীয় উত্তরগুলি পোস্ট করেন।
— ব্যবহারকারী 202729
2
@ ইউজার ২০২29 29৯, কেবলমাত্র অন্যদের দ্বারা এটির অর্থ সঠিক নয় বলে বোঝায়;) আপনি যদি এই জাতীয় সমাধানগুলি খুঁজে পান, তবে তাদের কাছে এটিই দেখানো ভাল।
— শেগি
@ শেগি ওয়েল, আমি স্পষ্টভাবে এই নিয়মটি নির্দেশ করেছি তবে সেই ব্যবহারকারী বলেছিলেন "বিধিটি স্পষ্টভাবে বলেছে যে এটি কার্যকর হয়"। আমি কী বলব জানি না। | এক্ষেত্রে ফাংশনটির জন্য tপ্রতিটি বার প্রথমবার कॉल করার আগে অ্যারেটি শূন্য করা প্রয়োজন ।
— ব্যবহারকারী 202729
@ শেগি ধন্যবাদ, স্থির।
— কোলেরা সু
2

বাশ , 15 20 বাইট

fold -1|sort|uniq -u

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

ব্যাখ্যা: fold গুলি 1লাইন প্রতি অক্ষর ইনপুট , sortএটি মেলানো অক্ষরের গোষ্ঠীতে বিভক্ত হয়, তারপরে কেবল unique বর্ণের লাইনগুলি মুদ্রণ করে ।

এই পদ্ধতির সাথে কোনও সমস্যা ধরা এবং সমাধান করতে সাহায্য করার জন্য @ নাহুয়েল ফুয়েলুলকে ধন্যবাদ

— জাস্টিন মেরিনার
সূত্র
বিজোড় চরিত্রটি দ্বিতীয় বা পেনুইলিটমেট হলে কাজ করে না
— নাহুয়েল ফিউইলুল
@ নাহুয়েলফৌইলুল ভাল ধরা ... আমি এই মুহুর্তে কীভাবে এটি ঠিক করব সে সম্পর্কে আমি নিশ্চিত নই, তবে আপনার প্রস্তাবিত কোনও সমাধান না হলে আমি পরে সংশোধন বা মুছব।
— জাস্টিন মেরিনার
এটি কেবল এটির সাথে ঠিক করা |sort|যেতে পারে তবে এর থেকে আরও ভাল সমাধান হতে পারে
— নাহুয়েল ফিউইলুল
এছাড়াও গ্রিপ সহ একটি সমাধান খুঁজে পেয়েছে তবে এটি দীর্ঘতরgrep -oP '^(.)((?=(?!\1).){2}|.*\K(?!\1).)'
— নাহুয়েল ফুইলুল
@ নাহুয়েলফুয়েলুল আমি স্থির করছি sort, ধন্যবাদ আপনি চাইলে আপনি সর্বদা সেই গ্রেপ উত্তরটি নিজের হিসাবে পোস্ট করতে পারেন।
— জাস্টিন মেরিনার
1

মতলব, 25 বাইট

a=input('');a(a~=mode(a))

"A" যেখানে "a" ইনপুটটি "a" এর মোড নয়। কোনও অডবলের জন্য খালি অ্যারে আউটপুট দেয়।

— যিরমিয় পিক
সূত্র
1

হাস্কেল, 33 * 0.75 = 24.75 বাইট

f s=[c|[c]<-(`filter`s).(==)<$>s]

কোনও বিজোড় অক্ষর না থাকলে একটি খালি তালিকা প্রদান করে।

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

cম্যাট্রিক্সের প্রতিটি চরের জন্য (একটি স্ট্রিং হিসাবে দেওয়া হয়েছে s) সমস্ত অক্ষরের একটি স্ট্রিং তৈরি করুন sযা সমান cএবং দৈর্ঘ্যের 1 টি রাখুন।

— nimi
সূত্র
1

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

ফেরত পাঠায় nullযদি কোন বিজোড় চিঠি আছে।

s=>s.match(`[^
${s.match(/(.)\1/)}]`)

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

কোড স্নিপেট দেখান

— Arnauld
সূত্র
1

জাপট , 6 বাইট

মাল্টি-লাইন স্ট্রিং হিসাবে ইনপুট নেয় এবং কোনও একক অক্ষরের স্ট্রিং বা কোনও সমাধান না হলে খালি স্ট্রিং আউটপুট দেয়।

k@èX É

চেষ্টা করে দেখুন

ব্যাখ্যা

ইনপুটতে ( k) ) বর্তমান উপাদান ( ) এর উপস্থিতি @গণনা করে এবং (1 ) কে বিয়োগ করে এমন কোনও ফাংশন ( ) দিয়ে যাওয়ার পরে সত্যবাদী ( ) প্রত্যাবর্তনকারী অক্ষরগুলি সরান ।èXÉ

— রোমশ
সূত্র
1

জেলি , 4 বাইট

ċ@ÐṂ

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

\nবিজোড় চরিত্র না থাকলে রিটার্ন (একক নতুন লাইন) স্পষ্টতই \nকোনও মুদ্রণযোগ্য চরিত্র নয়।

কাকতালীয়ভাবে এটি মিস্টার এক্সকোডার পাইথন উত্তরের ঠিক ঠিক একই অ্যালগরিদম। (আমি স্বাধীনভাবে এটি নিয়ে এসেছি)

ব্যাখ্যা:

  ÐṂ    Ṃinimum value by...
ċ@      ċount. (the `@` switch the left and right arguments of `ċ`)

এটি কাজ করে কারণ একটি m×nম্যাট্রিক্সে:

  • যদি বিজোড় চরিত্র বিদ্যমান থাকে: এখানে m-1নতুন লাইন, 1 টি বিজোড় অক্ষর এবং m×n-1সাধারণ চরিত্র রয়েছে এবং 1 < m-1 < m×n-1কারণ 5 ≤ m, n ≤ 10।
  • বিজোড় চরিত্রের অস্তিত্ব না থাকলে: m-1নতুন লাইনের এবং m×nস্বাভাবিক চরিত্র রয়েছে, এবং m-1 < m×n।
— user202729
সূত্র
1

সি # (.নেট কোর) , 54 বাইট

i=>i.GroupBy(x=>x).FirstOrDefault(g=>g.Count()<2)?.Key

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

— Wakawakamush
সূত্র
আপনি ঠিক বলেছেন, আমার উত্তরটি ভুল ছিল। আমি এটি মুছে ফেলেছি। তবে আপনি usingবাইট গণনায় স্টেটমেন্ট থেকে 18 বাইট মিস করছেন ।
— রাজনগুল
1

সি (জিসিসি) , 91 86 82 79 71 বাইট

f(char*s){for(;*++s==10?s+=2:0,*s;)if(*s^s[-1])return*s^s[1]?*s:s[-1];}

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

  • গ্যাস্ট্রোপনারকে জোরের জন্য ধন্যবাদ এবং? ট্রিকস (-৩ বাইট)
  • বাগগুলি স্থির করতে তুলনা সংস্করণটি পুনরায় তৈরি করা হয়েছে এবং মন্তব্যগুলি থেকে গ্যাস্ট্রপনার যাদু ব্যবহার করেছেন।

ব্যাখ্যা:

নতুনলাইনগুলি এড়িয়ে যাওয়ার সময় বর্তমান এবং পূর্বের চরটির তুলনা করুন। যদি আলাদা হয় তবে পরবর্তী চরের সাথে তুলনা করুন। আমরা বর্তমান বা পূর্ববর্তী চরটি ফিরিয়ে দিলে এটি আমাদের জানায়। ফাংশনটি উপস্থিত থাকলে "বিজোড়" চর মানটি বা অ্যারেটি বিজোড় না হলে 0 প্রদান করে। আমরা "পরের" চর চেক দিয়ে পালিয়ে যাই কারণ \0চরের আগে সর্বদা একটি নতুন লাইন থাকে । কোনও বিজোড় চর না থাকলে আমরা লুপের জন্য অন্তর্গতভাবে \ 0 ফিরিয়ে দেব।

পুরানো, যৌনতর জোর কোডের ব্যাখ্যা:

পরবর্তী 3 স্ট্রিং মানগুলির একটি চলমান জোর মাস্ক তৈরি করুন। যদি সেগুলি সব একই হয় তবে মান তিনটির যে কোনওটির সমান হবে। যদি সেগুলি আলাদা হয়, তবে 2 অভিন্নটি একে অপরকে অনন্য রেখে বাইরে বাতিল করবে।

জোর বা অগোছালো হওয়ার আগে অবশ্যই ফ্যাক্টর / এন হওয়া উচিত। [0] বিজোড় মান হিসাবে ক্ষেত্রে অসমতার জন্য 2 টি অক্ষরও পরীক্ষা করতে হবে। এতে অতিরিক্ত ব্যয় হয় || চেক করুন।

v;f(char*s){while(s[3]){s[2]==10?s+=3:0;v=*s^s[1]^s[2];if(v^‌​*s++||v^*s)break;}}
— মাইকেল ডর্গান
সূত্র
79 কয়েকটি টুইট সহ। পতনের মাধ্যমে v;f(char*s){while(s[3]){s[2]==10?s+=3:0;v=*s^s[1]^s[2];if(v^*s++||v^*s)break;}}
— রিটার্নটি
আমি যে বর্জ্যটি লিখছি তার জন্য টিআইও আমি যা আঁকছি। ধন্যবাদ!
— মাইকেল ডরগান
কিছু এক্সপ্রেশন পুনরায় সাজানো 77 77 এর জন্য আরেকটি -2 অনুমতি দেয়: v;f(char*s){while(s[2]==10?s+=3:0,v=*s^s[1]^s[2],s[3])if(v^*s++||v^*s)break;} তবে আপনার বিজয়ী ঘোড়াটি অন্যটি, যদি আপনি এটির সাথে কিছুটা v;f(char*s){for(v=-1;*++s==10?s+=2,v--:0,*s;v=0)if(*s^s[-1])return s[v];}
— ভাজা করেন তবে 73৩
হ্যাঁ, তবে জোর খুব সেক্সি লাগছে। :)
— মাইকেল ডারগান
সুপারিশ s+=*++s-10?0:2পরিবর্তে*++s==10?s+=2:0
— ceilingcat
1

অক্টাভা , 26 25 বাইট

1 জ্যোৎস্পিকে ধন্যবাদ বাইট সংরক্ষিত হয়েছে

@(x)x(sum(x(:)==x(:)')<2)

বেনামে ফাংশন যা ইনপুট হিসাবে 2D চর অ্যারে নেয় এবং অস্তিত্ব না থাকলে বিজোড় বর্ণ বা খালি স্ট্রিংয়ের ফলাফল দেয়।

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

— লুইস মেন্ডো
সূত্র
0

এলিস , 16 * 75% = 12 বাইট

/-.nDo&
\i..*N@/

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

Jabberwockyকোনও সদৃশ চরিত্র না থাকলে আউটপুট ।

ব্যাখ্যা

/...@
\.../

এটি লিনিয়ার প্রোগ্রামগুলির জন্য একটি কাঠামো যা পুরোপুরি অর্ডিনাল (স্ট্রিং প্রসেসিং মোড) এ কাজ করে। আসল কোডটি জিগজ্যাগ পদ্ধতিতে কার্যকর করা হয় এবং এতে প্রকাশিত হয়:

i..DN&-o

i   Read all input.
..  Make two copies.
D   Deduplicate one copy, giving only the two letters and a linefeed.
N   Multiset difference. Removes one copy of each letter and one linefeed.
    Therefore it drops the unique letter.
&-  Fold substring removal over this new string. This essentially removes
    all copies of the repeated letter and all linefeeds from the input,
    leaving only the unique letter.
.   Duplicate.
n   Logical NOT. Turns empty strings into "Jabberwocky" and everything else
    into an empty string.
*   Concatenate to the previous result.
o   Print the unique letter or "Jabberwocky".

এর পরিবর্তে &-, আমরাও ব্যবহার করতে পারতাম ey(একটি খালি স্ট্রিংয়ে অনুলিপি)। বিকল্পভাবে, স্ট্যাক ম্যানিপুলেশনে আরও একটি চরিত্র ব্যয় করে আমরা ইনপুটটিও অনুলিপি করতে পারি যা আমাদের দিয়ে অযাচিত অক্ষরগুলি সরাতে দেয় Nতবে এটি এখনও একই বাইট গণনা:

i.D.QXN.n*o@

এলিস , 13 বাইট

/N.-D@
\i&.o/

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

এটি বোনাস ছাড়াই সমাধান, এটি কেবল হারিয়ে যাচ্ছে .n*।

— মার্টিন ইন্ডার
সূত্র
0

এপিএল + উইন, 16 বাইট

(1=+/a∘.=a)/a←,⎕

স্ক্রিন ইনপুটটির জন্য অনুরোধ জানানো হয় এবং বিজোড় চিঠি না থাকলে বিজোড় চিঠি বা আউটপুট দেয়

— গ্রাহাম
সূত্র
a/⍨1=+/a∘.=a←,⎕একটি বাইটের জন্য
— উরিল
@ ইউরিল ধন্যবাদ তবে আমি ভয় করি যে অপারেটরটি আমার পুরানো এপিএল + উইন সংস্করণ 5 :(
— গ্রাহাম
0

পাওয়ারশেল , 39 বাইট

([char[]]"$args"|group|sort c*)[0].Name

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

নতুন charলাইনের সাথে স্ট্রিং হিসাবে ইনপুট নেয় (চ্যালেঞ্জ অনুসারে) এটি এ্যারে রূপান্তর করে । আমরা তারপরে Group-Objectঅক্ষরগুলি, যাতে অক্ষরগুলি তাদের নামের সাথে একত্রিত হয়, তারপরে অঙ্কের sortউপর ভিত্তি করে c। এটি নিশ্চিত করে যে নিঃসঙ্গ চরিত্রটি প্রথম, তাই আমরা [0]সূচীটি গ্রহণ করি এবং এর আউটপুট করি .Name।

যদি নিউলাইন যদি "কিছুই না" জন্য গ্রহণযোগ্য হয় তবে এটি বোনাসের জন্য যোগ্যতা অর্জন করে।

— AdmBorkBork
সূত্র
আমি আশা করছিলাম sort c*)[0]সংক্ষিপ্ত করা যায়নি, কিন্তু আমি কি নিয়ে এসেছেন বাইট একই সংখ্যক ছিল, ? c* -eq 1)।
— রুটটি
চারপাশে ডাবল উক্তিগুলি সরিয়ে ছোট করা যেতে পারে $args। বিজোড় চরিত্র না থাকলে (নতুন লাইনের পরিবর্তে) ([char[]]$args|group|? c* -eq 1).Nameসঠিকভাবে ফিরে আসবে বলে এটি করা আরও সঠিক null। তবে বাইটের ক্ষেত্রে এটি এখনও আপনাকে 37 এর নিচে আনবে না।
— cogumel0
@ cogumel0 ডাবল উদ্ধৃতি ছাড়া চলবে না।
— রুট
@ সঠিক আপনি সঠিক আছেন তবে প্রয়োজনীয়তা এক (একটি একক অক্ষর যে "বিজোড়" ম্যাট্রিক্স বা পাস করার None, nil, NUL, বা স্ট্রিং"None" না "বিজোড়" চরিত্র না থাকলে।) এটি এখনও পরিবর্তন করা উচিত নয়। নিউলাইন গ্রহণযোগ্য উত্তরের অংশ নয়।
— cogumel0
@ cogumel0 আহ, আমি আমার উত্তর পোস্ট করার পর থেকে চ্যালেঞ্জটি পরিবর্তন হয়েছিল। "কিছুই নয় / নীল / যাই হোক না কেন" বাধ্যতামূলক না হয়ে কেবল বোনাস হিসাবে ব্যবহৃত হত। আমি আমার উত্তরটি যেমন রাখি তেমন রাখছি।
— অ্যাডমবর্কবর্ক
0

পার্ল 6 ,  27  24 -25% = 18 বাইট

*.comb.Bag.min(*.value).key

এটা পরীক্ষা করো

{%(.comb.Bag.invert){1}}

এটা পরীক্ষা করো

বিজোড় অক্ষর না থাকা এমন কোনও ইনপুট দেওয়া হলে এটি একটি অপরিজ্ঞাত মানটি ফিরিয়ে দেয়।

সম্প্রসারিত:

{  # bare block lambda with implicit parameter ｢$_｣

  %(        # coerce into a Hash

    .comb   # split the input into graphemes (implicit method call on ｢$_｣)
    .Bag    # turn into a weighted Set
    .invert # invert that (swap keys for values) returns a sequence

  ){ 1 }    # get the character that only occurs once
}
— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র
0

জাভা 8, 85 বাইট

এই থেকে একটি ল্যামডা হয় Stringথেকে String(যেমন Function<String, String>)। এটি মূলত লুসার সমাধানের একটি অনুলিপি , তবে আমি স্ট্রিংটি কিছুটা বাছাই করে রেখেছি।

s->new String(s.chars().sorted().toArray(),0,s.length()).replaceAll("(.)\\1+|\\n","")

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

— জ্যাকব
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.