সর্বাধিক 'অনন্য' শব্দটি সন্ধান করা

Question

আপনার পছন্দের ভাষা ব্যবহার করে, আপনি সবচেয়ে সংক্ষিপ্ত ফাংশন / স্ক্রিপ্ট / প্রোগ্রাম লিখুন যা আপনি কোনও পাঠ্যের সর্বোচ্চ সংখ্যক অনন্য বর্ণের সাথে শব্দটি সনাক্ত করতে পারবেন identify

• ইউটিএফ -8 এনকোডিং ব্যবহার করে স্বতন্ত্র অক্ষরের মধ্যে কোনও স্বতন্ত্র অক্ষর অন্তর্ভুক্ত হওয়া উচিত ।
  • একই অক্ষরের উপরের এবং লোয়ার কেস সংস্করণগুলি পৃথক এবং স্বতন্ত্র; 'a' != 'A'
• শব্দগুলি কোনও সাদা স্থানের অক্ষর দ্বারা আবদ্ধ।
• 'চিঠিগুলি' এমন কোনও প্রতীক যা একক ইউনিকোড চরিত্রের দ্বারা প্রতিনিধিত্ব করতে পারে।
• পাঠ্য দস্তাবেজটি অবশ্যই আপনার কোড দ্বারা পড়তে হবে - পাঠ্যের কোনও প্রিলোডিং / হার্ড-কোডিংয়ের অনুমতি নেই।
• আউটপুটটি শব্দটি হওয়া উচিত, তারপরে অনন্য বর্ণগুলির গণনা।
  • llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch - 18
  • দুটি মানের মধ্যে যে কোনও ডিলিমিটার / স্পেসিং আপনার উপর নির্ভর করে, যতক্ষণ না তাদের আলাদা করার জন্য কমপক্ষে একটি চরিত্র থাকে।
• ইভেন্টে একাধিক শব্দ সর্বাধিক গণনার সাথে উপস্থিত থাকে, সেই গণনার জন্য সমস্ত শব্দ মুদ্রণ করে একটি নতুন লাইন সীমানার মাধ্যমে।

  সংজ্ঞা - 16
  সিউডোলেমেলিব্রানিয়েট - 16

• এটি কোড গল্ফ, তাই সংক্ষিপ্ততম কোড জয়ী।

ইংলিশ.এস.এর এই উত্তরটি আমাকে এই চ্যালেঞ্জ তৈরি করতে অনুপ্রাণিত করেছে। উদাহরণটি কেবল একটি শব্দের তালিকা ব্যবহার করে তবে যে কোনও পাঠ্য প্রক্রিয়া করতে সক্ষম হওয়া উচিত।

Comments

শব্দগুলি কীভাবে পৃথক হয়? আপনি বলছেন স্বতন্ত্র অক্ষরগুলি যে কোনও ইউটিএফ -8 অক্ষর, তবে এটি বোঝায় যে পুরো ফাইলটি কেবল একটি শব্দ।

— পিচবোর্ড_বক্স

আপনি এখানে বর্ণগুলি কীভাবে সংজ্ঞায়িত করছেন? যেমনটি আমি সবেমাত্র করেছি এবং ইংরাজির কোনওটির দিকে ইঙ্গিত করেছি SE এসই উত্তরগুলি LlanfairPGওয়েলশ শব্দ এবং এর মধ্যে ওয়েলশ বর্ণমালা থেকে বর্ণ রয়েছে - llএবং chউভয়ই ওয়েলশ ভাষায় একক অক্ষর।

— গ্যারেথ

@ গ্যারেথ আমি এই পার্থক্য সম্পর্কে জানিনা, আমার ভুল। এই দুটি 'চিঠি' এর ইউনিকোড উপস্থাপনা আছে? এই চ্যালেঞ্জের উদ্দেশ্যে, প্রতিটি স্বতন্ত্র ইউনিকোড অক্ষর একটি চিঠি।

— গাফি

সুতরাং abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()_+~`<>/\\?'";:{}[],.একটি বৈধ "শব্দ"?

— শ্মিদ্দী

অফ-টপিক, তবে স্পষ্টতই ওয়েলশ ভাষায় LL এবং ll এর জন্য একক অক্ষর থাকত। তাদের জন্য কমপক্ষে ইউনিকোডে ইউ + 1EFA এবং ইউ + 1EFB রয়েছে; "মধ্য-ওয়েলশ" এগুলি তাদের ডাকে। যদিও কোনও শিরোনাম নেই।

— মিস্টার লিস্টার

Answer 1

এপিএল (56)

{⎕ML←3⋄⊃{⍵,⍴∪⍵}¨W[⍙]⍴⍨↑+/∆∘.=∆←∆[⍙←⍒∆←↑∘⍴∘∪¨W←⍵⊂⍨⍵≠' ']}

এটি এমন একটি ফাংশন (প্রশ্নটি এটি অনুমোদিত) যা একটি স্ট্রিং নেয় এবং শব্দের একটি ম্যাট্রিক্স এবং অনন্য দৈর্ঘ্য দেয়।

ব্যবহার:

      {⎕ML←3⋄⊃{⍵,⍴∪⍵}¨W[⍙]⍴⍨↑+/∆∘.=∆←∆[⍙←⍒∆←↑∘⍴∘∪¨W←⍵⊂⍨⍵≠' ']}'The quick brown fox jumps over the lazy dog.'
quick 5
brown 5
jumps 5

ব্যাখ্যা:

• ⎕ML←3: মাইগ্রেশন স্তর 3 এ সেট করুন (যাতে এটি ⊂সংযুক্তির পরিবর্তে পার্টিশন হয়)
• W←⍵⊂⍨⍵≠' ': Wপ্রদত্ত স্ট্রিংয়ে সংরক্ষণ করুন, যেখানে প্রতিটি পার্টিশনে অ-সাদা অংশের অক্ষর রয়েছে characters
• ⍙←⍒∆←↑∘⍴∘∪¨W: পরিমাণ (পেতে ⍴অনন্য (এর) ∪(প্রতিটি অংশে) উপাদান ¨) এর W, এবং এই সঞ্চয় ∆, তারপর সাজানোর ক্রম যখন এই সাজানো নীচের দিকে (পেতে ⍒) এবং যে দোকান ⍙।
• ∆[⍙... ]করুনঃ ∆দ্বারা ⍙, তাই এখন আমরা অনন্য লেন্থ অনুক্রমে আছে।
• ∆∘.=∆←∆: সাজানো ∆ফিরিয়ে দিন সংরক্ষণ করুন ∆এবং দেখুন যে উপাদানগুলি ∆সমান।
• ↑+/: সারিগুলি যোগ করুন (এখন আমরা জানি যে প্রতিটি উপাদানগুলির জন্য কতগুলি উপাদান সমান) এবং তারপরে প্রথম আইটেমটি গ্রহণ করুন (এখন আমরা জানি যে প্রথম উপাদানটির সাথে কতগুলি উপাদান সমান, অর্থাৎ শব্দের মধ্যে কতটি প্রথম স্থানে আবদ্ধ))
• W[⍙]⍴⍨করুনঃ Wদ্বারা ⍙, এবং নিতে প্রথম এন, যেখানে n সংখ্যা আমরা শুধু গণনা করা হয়।
• {⍵,⍴∪⍵}¨: এগুলির প্রত্যেকের জন্য, শব্দটি নিজেই এবং শব্দটিতে অনন্য অক্ষরের পরিমাণ পান
• ⊃: ম্যাট্রিক্স হিসাবে ফর্ম্যাট

Answer 2

ম্যাথামেটিকাল 96 115

সম্পাদনা : কোড এখন সর্বাধিক সংখ্যক অক্ষরের সমস্ত শব্দ খুঁজে বের করে। আমি কমা অক্ষরের অক্ষর হিসাবে বিবেচনা করতে অস্বীকার করি।

f@t := With[{r = {#, Length@Union@Characters@#} & /@ 
StringSplit[t,RegularExpression@"\\W+"]},  Cases[r, {_, Max[r[[All, 2]]]}]]

উদাহরণ

f@"It was the best of times,...of comparison only."

অথবা

f@Import["t1.txt"]

inc inc "অবিশ্বাস", 10}, super "চূড়ান্ত", 10}

---

f@"Lorem ipsum... vitae augue."

অথবা

f@Import["t2.txt"]

{"ভেস্টিবুলাম", 9

---

দীর্ঘতর উদাহরণ

f@Import["ShakespearesSonnets.txt"]
f@Import["OriginOfSpecies.txt"]
f@Import["DeclarationOfIndependence.txt"]
f@Import["DonQuixoteISpanish.txt"]
f@Import["AliceInWonderland.txt"]
f@Import["UNHumanRightsGerman.txt"]
f@Import["GenesisKJV.txt"]

আশ্চর্য: স্বাধীনতার ঘোষণাপত্রের সবচেয়ে "অনন্য" শব্দটিও অ্যালিস ইন ওয়ান্ডারল্যান্ডের সবচেয়ে অনন্য শব্দ !

{ "পূর্বেই অনুমান করা", 11}
{ "undiscoverable", 13}
{ "অস্বস্তিকর", 12}
{ "regocijadamente", 12}
{ "অস্বস্তিকর", 12}
{ "Verpflichtung", 13}
{ "buryingplace", 12}

Comments

এটি কি কেবল একটি একক-অনন্য শব্দের ফেরত দেয়? এটা তাদের সব ফিরিয়ে দেওয়া উচিত। উদাহরণস্বরূপ "

— চূড়ান্ত

@ শ্ম্মিদ্দী আমি আপনার সমালোচনা সম্বোধন করেছি। (এটির দাম 19 বাইট।)

— ডেভিডসি

Answer 3

পাইথন 2 (110 (ফাইলের ইনপুট ব্যবহার করে 98))

import sys
f=lambda x:len(set(x))
a=sys.stdin.read().split()
c=max(map(f,a))
for i in a:
 if f(i)==c:print i,c

।

f=lambda x:len(set(x))
a=file('a').read().split()
c=max(map(f,a))
for i in a:
 if f(i)==c:print i,c

উন্নত করার বিষয়গুলি: মুদ্রণ (33 টি অক্ষর)

বিরামচিহ্নগুলি অক্ষর হিসাবে বিবেচিত হয়।

Comments

পাইথন 2.7.3: NameError: global name 'r' is not defined। প্রায় একক উদ্ধৃতি যোগ করার পরে r: AttributeError: 'file' object has no attribute 'split'। পাইথন 3.3.0: SyntaxError: invalid syntax 'print i,c'।

— primo

উফ, আমি এটি পরীক্ষা করিনি। এটি বলার জন্য ধন্যবাদ, আমি এটি কখনই দেখতে পেতাম না। পাইথন 3 হিসাবে: কাজ করে না।

— beary605

Answer 4

এটি আমার প্রথম কোডগল্ফ, আমি খুব উত্তেজিত :) এর অর্থ এটি সম্ভবত কোনও ভাল নয়।

গ্রোভি 127 117 112 105

সম্পাদনা করুন: যেহেতু এখানে ফাংশনগুলি অনুমোদিত হতে পারে বলে মনে হয় এটি একটি 105 এর মধ্যে I

একটি = {ই = {it.toSet ()। আকার ()}
সি = it.text.tokenize ()
ডি = ই (C.max {ই (এটা)})
C.grep {e (এটি) == ডি} .চিহ্ন {মুদ্রণ "$ এটি $ ডি"}

আপনি এটিকে এভাবে ডাকবেন:

একটি (নতুন ফাইল ("words.txt"))

112-এ স্ট্যান্ডার্ড ইনপুট ব্যবহার করে ফাংশন ছাড়াই :

একটি = {it.toSet ()। আকার ()}
খ = System.in.getText ()। tokenize ()
গ = একটি (b.max {একটি (এটা)})
b.grep {a (এটি) == সি} .ইচ {মুদ্রণ "$ এটি $ সি"}

একটি = {it.toSet ()। আকার ()}
খ = System.in.getText ()। tokenize ()। সাজানোর {-a (এটা)}
গ = একটি (খ [0])
b.grep {a (এটি) == সি} .ইচ {মুদ্রণ "$ এটি $ সি"}

একটি = {it.toSet ()। আকার ()}
System.in.getText ()। টোকেনাইজ ()। সাজান ({- ক (এটি)})। গ্রুপবাই {এ (এটি) take। নিন (1) .ইচ {কে, ভি-> ভি.ইচ {প্রিন্টন " এটি $ কে "}}

ইনপুট: প্রিমো থেকে প্রবন্ধ পাঠ্য

সমস্ত স্ক্রিপ্ট আউটপুট:

consequat 9
ullamcorper 9
Vestibulum 9

তাদের কীভাবে আরও কৌতুকপূর্ণ করা যায় সে সম্পর্কে কেউ ধারণা পেয়েছেন?

Answer 5

পার্ল 78 বাইট

map{push$_[keys{map{$_,1}/./g}]||=[],$_}split for<>;print"$_ $#_
"for@{$_[-1]}

বিধিনিষেধের ব্যাখ্যার অর্থ "পাঠ্য দলিলটি অবশ্যই আপনার কোড দ্বারা পড়তে হবে" এর অর্থ হ'ল কমান্ড লাইন বিকল্পগুলি যা ইনপুটটি পড়ে এবং বিশ্লেষণ করে তা অনুমোদিত নয়। নীচের পিএইচপি সমাধান হিসাবে, কেবলমাত্র 10 এবং 32 অক্ষরগুলিকে শব্দের ডিলিটার হিসাবে বিবেচনা করা হয়। ইনপুট এবং আউটপুটও একই পদ্ধতিতে নেওয়া হয়।

---

পিএইচপি 128 বাইট

<?foreach(split(~߃õ,fread(STDIN,1e6))as$s){$w[count(count_chars($s,1))][]=$s;}krsort($w)?><?=join($f=~ß.key($w).~õ,pos($w)),$f;

শব্দের ডিলিমিটর হিসাবে বিবেচিত কেবলমাত্র অক্ষরগুলি হ'ল অক্ষর 10 এবং চরিত্র 32 pun বিরামচিহ্ন সহ বাকী শব্দটিকে শব্দের অংশ হিসাবে বিবেচনা করা হয়।

এটিতে কয়েকটি বাইনারি অক্ষর রয়েছে, যা উদ্ধৃতি চিহ্নগুলি সংরক্ষণ করে, তবে ফলস্বরূপ সঠিকভাবে কাজ করতে একটি এএনএসআই এনকোডিং দিয়ে সংরক্ষণ করা দরকার। বিকল্পভাবে, এই সংস্করণটি ব্যবহার করা যেতে পারে যা 3 বাইট ভারী:

<?foreach(split(' |
',fread(STDIN,1e6))as$s){$w[count(count_chars($s,1))][]=$s;}krsort($w)?><?=join($f=' '.key($w).'
',pos($w)),$f;

নমুনা I / O:

ইনপুট 1:

It was the best of times, it was the worst of times, it was the age of wisdom,
it was the age of foolishness, it was the epoch of belief, it was the epoch of
incredulity, it was the season of Light, it was the season of Darkness, it was
the spring of hope, it was the winter of despair, we had everything before us,
we had nothing before us, we were all going direct to Heaven, we were all going
direct the other way - in short, the period was so far like the present period,
that some of its noisiest authorities insisted on its being received, for good
or for evil, in the superlative degree of comparison only.

আউটপুট 1:

$ php most-unique.php < input1.dat
incredulity, 11

ইনপুট 2:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec mollis, nisl sit
amet consequat fringilla, justo risus iaculis justo, vel ullamcorper dui tellus
ut enim. Suspendisse lectus risus, molestie sed volutpat nec, eleifend vitae
ligula. Nulla porttitor elit vel augue pretium cursus. Donec in turpis lectus.
Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia
Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu,
venenatis nec hendrerit a, molestie vitae augue.

আউটপুট 2:

$ php most-unique.php < input2.dat
consequat 9
ullamcorper 9
Vestibulum 9

Comments

incredulity11 নয়, 10 টি অনন্য চিঠি রয়েছে

— ডেভিডসি

@ ডেভিডক্যারাহার তার কোডটি কমা সহ অন্তর্ভুক্ত করছেন যা নিয়মগুলির মাধ্যমে তাত্ত্বিকভাবে অনুমোদিত।

— শ্মিদ্দী

ব্যাখ্যাটি একেবারে অবিশ্বাস্য।

— ডেভিডসি

এটি কেবল 'তাত্ত্বিকভাবে অনুমোদিত' নয়, তবে প্রশ্নের শব্দটি দেওয়া (বিশেষত পয়েন্ট 2 এবং 3), এটি একটি প্রয়োজনীয়তা বলে মনে হয়।

— primo

@ ডেভিডকারারহর হ্যাঁ, বিরামচিহ্নগুলি বৈধ অক্ষর। সাদা স্থান ছাড়া অন্য যে কোনও কিছুই বৈধ।

— গাফি

Answer 6

GoRuby 2.0.0 - 66 টি অক্ষর

নীচের সমাধানগুলিতে আসলে সমস্ত মিল খুঁজে পাওয়া যায় নি তবে কেবল একটি। এখানে আমার চূড়ান্ত সংস্করণ:

a=$<.r.sp.m{|x|[x,x.ch.u.sz]};a.m{|x|s x*' - 'if x.l==a.m_(&:l).l}

উদাহরণ:

আপনার পছন্দসই কাজটি করতে পারবেন না। ডোন মলিস, ফলস্বরূপ ফলস্বরূপ কাজ করে, জাস্টিস রাইসেস আইসুলিস জাস্টো, বা আল্লামা কর্নারের বিভিন্ন বিষয় হতে পারে। সাসপেন্ডিস লেক্ট রিসাস, ম্যাসেস্ট সেড ভলুটপাট এনইসি, এলিফেন্ড ভিট লিগুলা। নুলা পোর্টিটিটর বা আউগুয়েজ প্রাইসিয়াম ক্রুশ। টারপিস লেকটাস এ ডোনেক। ভিজিওবুলের পূর্বে প্রথমবারের মতো ফিউসিবাস লুটিউস এবং আল্ট্রাইকগুলি কিউবিলিয়া কিউরিয়া; আপনার ইউরো টারপিস বিভারের সোডলগুলি কুইজ করুন। পেলেন্তেস্কি জাস্টো আরকু, ভেনেনাটিস এনইসি হেন্ড্রেরিট এ, মেসিটি ভিট আউগুয়েজ।

সৃষ্টি করে:

$ ruby golf.rb < input.txt
consequat - 9
ullamcorper - 9
Vestibulum - 9

GoRuby 2.0.0 - 29 টি অক্ষর (সঠিক আউটপুট বিন্যাস নয়)

s$<.sp.m{|x|[x.ch.u.sz,x]}.mx

স্টিডিনের কাছ থেকে ইনপুট আশা করে। যদিও আউটপুট ফর্ম্যাটটি কিছুটা আলাদা। উদাহরণ স্বরূপ:

$ ruby golf.rb < british.1
14
manoeuvrability

GoRuby 2.0.0 - 42 40 অক্ষর

s$<.r.sp.m{|x|[x.ch.u.sz,x]}.mx.rv*' - '

স্টিডিনের কাছ থেকে ইনপুট আশা করে

রুবি 1.9.3 - 69 65 অক্ষর

puts$<.read.split.map{|x|[x.chars.uniq.size,x]}.max.reverse*' - '

স্টিডিনের কাছ থেকে ইনপুট প্রত্যাশা করে (উপরের মতো, তবে GoRuby সংক্ষেপণ ছাড়াই)

Answer 7

জাভাস্ক্রিপ্ট 163 155 152 162 বাইট

এটি যতটা সংক্ষিপ্ত তা আমি এটি পেতে পারি:

prompt(x=[]).split(/\s/).forEach(function(a){b={};c=0;a.split('').forEach(function(d){b[d]?1:b[d]=++c});x[c]?x[c].push(a):x[c]=[a]});alert((l=x.length-1)+':'+x[l])
prompt(x=[]).split(/\b/).map(function(a){b={};c=0;a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]?x[c].push(a):x[c]=[a]});alert((l=x.length-1)+':'+x[l])
prompt(x=[]).split(/\s/).map(function(a){b=[c=0];a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]=(x[c]||[]).concat(a)});alert((l=x.length-1)+':'+x[l])

prompt(x=[]).split(/\s/).map(function(a){b=[c=0];a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]=(x[c]||[]).concat(a)});alert((l=x.length-1)+':'+x[l].join('\n'))

এই সংস্করণে /\s/হোয়াইটস্পেসের উপর ভিত্তি করে শব্দগুলি পৃথক করে, তাই এতে শব্দের অংশ হিসাবে বিরামচিহ্ন, কমা, পিরিয়ড ইত্যাদি অন্তর্ভুক্ত রয়েছে। এটি সহজেই এগুলিতে /\b/অন্তর্ভুক্ত না করে পরিবর্তিত হয় ।

আমি কিছুটা জন্য আইচের পরিবর্তে লুপগুলি দিয়ে কী করতে পারি তা আমি দেখতে পাব।

ইনপুট / আউটপুট:

এটি সর্বকালের সেরা সময় ছিল, এটি ছিল সবচেয়ে খারাপ সময়, এটি ছিল জ্ঞানের যুগ, এটি ছিল বোকামির যুগ, এটি বিশ্বাসের যুগ ছিল, এটি ছিল অবিশ্বাসের যুগ, এটি আলোর মরসুম ছিল, এটি ছিল অন্ধকারের মরসুম ছিল, এটি ছিল আশার ঝর্ণা, হতাশার শীত ছিল, আমাদের আগে আমাদের সমস্ত কিছুই ছিল, আমাদের আগে কিছুই ছিল না, আমরা সবাই স্বর্গে সরাসরি যাচ্ছিলাম, আমরা সবাই সরাসরি অন্য পথে যাচ্ছিলাম - ইন সংক্ষেপে, সময়টি বর্তমান সময়ের মতো এতটা দীর্ঘ ছিল যে, এর কিছু স্নিগ্ধ কর্তৃপক্ষ কেবলমাত্র তুলনার উচ্চতর ডিগ্রিতেই তার ভাল বা খারাপের জন্য প্রাপ্ত হওয়ার উপর জোর দিয়েছিল।

11:incredulity,

আপনার পছন্দসই কাজটি করতে পারবেন না। ডোন মলিস, ফলস্বরূপ ফলস্বরূপ কাজ করে, জাস্টিস রাইসেস আইসুলিস জাস্টো, বা আল্লামা কর্নারের বিভিন্ন বিষয় হতে পারে। সাসপেন্ডিস লেক্ট রিসাস, ম্যাসেস্ট সেড ভলুটপাট এনইসি, এলিফেন্ড ভিট লিগুলা। নুলা পোর্টিটিটর বা আউগুয়েজ প্রাইসিয়াম ক্রুশ। টারপিস লেকটাস এ ডোনেক। ভিজিওবুলের পূর্বে প্রথমবারের মতো ফিউসিবাস লুটিউস এবং আল্ট্রাইকগুলি কিউবিলিয়া কিউরিয়া; আপনার ইউরো টারপিস বিভারের সোডলগুলি কুইজ করুন। পেলেন্তেস্কি জাস্টো আরকু, ভেনেনাটিস এনইসি হেন্ড্রেরিট এ, মেসিটি ভিট আউগুয়েজ।

9:consequat
ullamcorper
Vestibulum

একটু ক্লান্ত, সম্ভবত। তবে আমি শান্তি বোধ করি। আজ সকালে রিংয়ে আপনার সাফল্য ছিল আমার সাফল্য অল্প মাত্রায়। আপনার ভবিষ্যত নিশ্চিত। আপনি বাঁচবেন, সুরক্ষিত এবং নিরাপদ, উইলবার ur কিছুই এখন আপনার ক্ষতি করতে পারে না। এই শরতের দিনগুলি সংক্ষিপ্ত হবে এবং শীত বাড়বে। পাতা গাছ থেকে আলগা কাঁপুন এবং পড়বে। ক্রিসমাস আসবে, এবং শীতের শান। আপনি হিমশীতল বিশ্বের সৌন্দর্য উপভোগ করতে বাঁচবেন, কারণ আপনি জুকারম্যানের কাছে একটি দুর্দান্ত চুক্তি এবং তিনি আপনাকে কোনও ক্ষতি করবেন না। শীতকাল কেটে যাবে, দিনগুলি দীর্ঘ হবে, বরফটি চারণভূমির পুকুরে গলে যাবে। গানটির চড়ুই ফিরবে এবং গান করবে, ব্যাঙগুলি জেগে উঠবে, উষ্ণ বাতাস আবার উড়ে যাবে। এই সমস্ত দর্শনীয় স্থান এবং শব্দ এবং গন্ধ উপভোগ করার জন্য আপনার হবে, উইলবার — এই সুন্দর পৃথিবী, এই মূল্যবান দিনগুলি…

10:Wilbur—this

আজকাল প্রায় সব শিশুই ছিল ভয়াবহ। সর্বোপরি সবচেয়ে খারাপটি হ'ল যে, গুপ্তচরদের মতো সংগঠনগুলির মাধ্যমে তারা নিয়মানুবর্তিতভাবে অল্প বয়স্ক ক্ষয়ক্ষেত্রে পরিণত হয়েছিল এবং তবুও তাদের মধ্যে পার্টির শৃঙ্খলার বিরুদ্ধে বিদ্রোহ করার কোন প্রবণতা তৈরি হয়নি। বিপরীতে, তারা পার্টি এবং এর সাথে জড়িত সমস্ত কিছুকে উপাসনা করেছিল ... তাদের সমস্ত বর্বরতা রাষ্ট্রের শত্রুদের বিরুদ্ধে, বিদেশী, বিশ্বাসঘাতক, নাশক, চিন্তা-অপরাধীদের বিরুদ্ধে বাহ্যিকভাবে পরিণত হয়েছিল। ত্রিশ বছরেরও বেশি বয়সী লোকেরা তাদের নিজস্ব সন্তানদের নিয়ে আতঙ্কিত হওয়া প্রায় স্বাভাবিক ছিল।

15:thought-criminals.

Comments

আউটপুটটির সাথে একটি সম্ভাব্য বিশ্রীতা রয়েছে: যদি আউটপুটে একাধিক শব্দ থাকে এবং কোনও একটি শব্দ কমা দিয়ে শেষ হয়, তবে এটি একটি সারিতে দুটি কমা প্রদর্শন করতে পারে যা বিভ্রান্তিকর হবে।

— শ্মিদ্দী

In the event more than one word exists with the highest count, print all words for that count, **with one new line delimiting**.

— অনুমান

@ গাফি এখনই ঠিক করা উচিত। 10 বাইট> <।

— Shmiddty

Answer 8

স্কেলা 129 চর:

def f{
val l=readLine.split(" ").map(s=>(s,s.distinct.length)).sortBy(_._2)
println(l.filter(x=>x._2==l.last._2).mkString)}

Answer 9

আর - 106 টি অক্ষর
প্যারামিটার হিসাবে ইনপুট পাঠ্য সহ একটি ফাংশন হিসাবে:

f=function(t){
s=strsplit
a=sapply
t=s(t," ")[[1]]
w=a(a(s(t,""),unique),length)
n=(w==max(w))
cbind(t[n],w[n])
}

এবং কয়েকটি উদাহরণ:

f("It was the best of times, it was the worst of times, it was the age of wisdom, it was the age of foolishness, it was the epoch of belief, it was the epoch of incredulity, it was the season of Light, it was the season of Darkness, it was the spring of hope, it was the winter of despair, we had everything before us, we had nothing before us, we were all going direct to Heaven, we were all going direct the other way - in short, the period was so far like the present period, that some of its noisiest authorities insisted on its being received, for good or for evil, in the superlative degree of comparison only.")
     [,1]           [,2]
[1,] "incredulity," "11"

f("Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec mollis, nisl sit amet consequat fringilla, justo risus iaculis justo, vel ullamcorper dui tellus ut enim. Suspendisse lectus risus, molestie sed volutpat nec, eleifend vitae ligula. Nulla porttitor elit vel augue pretium cursus. Donec in turpis lectus. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu, venenatis nec hendrerit a, molestie vitae augue.")
     [,1]          [,2]
[1,] "consequat"   "9" 
[2,] "ullamcorper" "9" 
[3,] "Vestibulum"  "9"

অথবা আর - 100 টি অক্ষর
প্যারামিটার হিসাবে পাঠ্য ফাইলের পথের সাথে একটি ফাংশন হিসাবে:

f=function(t){
t=scan(t,"")
a=sapply
w=a(a(strsplit(t,""),unique),length)
n=(w==max(w))
cbind(t[n],w[n])
}

ব্যবহার:

f("t1.txt")
Read 120 items
     [,1]           [,2]
[1,] "incredulity," "11"

Comments

আমি মনে করি এটি অনুপস্থিত রয়েছে "আপনার কোড দ্বারা পাঠ্য দস্তাবেজটি অবশ্যই পড়তে হবে"।

— স্টিভেন রাম্বালস্কি

পুনঃটুইট করুন

— প্ল্যানাপাস

Answer 10

পাইথন 176 168

w = "".join((open('c')).readlines()).replace("\n", " ").split(" ")
l = sorted(zip([len(set(w[i])) for i in range(len(w))],w,))
print([x for x in l if l[-1][0] == x[0]])

Answer 11

পাইথন 3 119

কল করা কোনও ফাইল থেকে পড়ে a।

r={w:len(set(w))for w in open("a").read().split()};print("\n".join(str((k,v))for k,v in r.items()if v==max(r.values())))

@ প্রিমো থেকে ইনপুট পাঠ্য নিয়ে পরীক্ষিত:

Input 1:
    ('incredulity,', 11)

Input 2:
    ('Vestibulum', 9)
    ('consequat', 9)
    ('ullamcorper', 9)

Answer 12

ভিবিএস স্ক্রিপ্ট - 430 / ভিবিএ - 420

VB স্ক্রিপ্ট:

Function r(t)
d="Scripting.Dictionary"
Set w=CreateObject(d)
c=1
Do Until c>Len(t)
p=InStr(c,t," ")
i=InStr(c,t,vbCr)
If p<i Then s=i Else s=p
If s=0 Then s=Len(t)+1
f=Mid(t,c,s-c)  
If Not w.Exists(f) Then 
Set x=CreateObject(d)
For l=1 To Len(f)
n=Mid(f,l,1)
If Not x.Exists(n) Then x.Add n,n
Next
w.Add f,f
y=x.Count
If m=y Then z=f &vbCr &z
If m<y Then m=y:z=f
End If
c=s+1
Loop
r=z &" " &m
End Function

VBA:

Function r(t)
d="Scripting.Dictionary"
Set w=CreateObject(d)
c=1
Do Until c>Len(t)
p=InStr(c,t," ")
i=InStr(c,t,vbCr)
s=IIf(p<i,i,p)
If s=0 Then s=Len(t)+1
f=Mid(t,c,s-c)  
If Not w.Exists(f) Then 
Set x=CreateObject(d)
For l=1 To Len(f)
n=Mid(f,l,1)
If Not x.Exists(n) Then x.Add n,n
Next
w.Add f,f
y=x.Count
If m=y Then z=f &vbCr &z
If m<y Then m=y:z=f
End If
c=s+1
Loop
r=z &" " &m
End Function