আমি এই প্রশ্নের উপরে এসেছি, কারণ স্ট্রিংয়ের মধ্যে অনন্য অক্ষরগুলি খুঁজে পেতে এটি খুব সাধারণ ব্যবহারের ক্ষেত্রে বলে মনে হয়। তবে আমরা যদি সেগুলি থেকে মুক্তি পেতে চাই?
ইনপুটটিতে কেবল ছোট ছোট বর্ণমালা থাকে। শুধুমাত্র a থেকে z পর্যন্ত বর্ণ ব্যবহার করা হয়। ইনপুট দৈর্ঘ্য 1 থেকে 1000 বর্ণের হতে পারে।
উদাহরণ:
ইনপুট
: হেলিওর্ল্ড আউটপুট: লোল
উদ্দেশ্য: সংক্ষিপ্ততম কোড জয়
ভাষা: টিআইওবি ভাষার শীর্ষ 20 টির মধ্যে যে কোনওটি
উত্তর:
s/./$&x(s!$&!$&!g>1)/eg
ব্যবহার:
> perl -pe 's/./$&x(s!$&!$&!g>1)/eg'
helloworld
llool
প্রথমে আমি ভেবেছিলাম আমি নেতিবাচক চেহারা-এগিয়ে এবং নেতিবাচক চেহারা-পিছনে এটি করতে পারি, তবে এটি দেখা গেছে যে নেতিবাচক চেহারা-পিছনের অবশ্যই একটি নির্দিষ্ট দৈর্ঘ্য থাকতে হবে। সুতরাং আমি পরিবর্তে নেস্টেড রেজেক্সেসের জন্য গিয়েছিলাম। টিপ জন্য ভিড় ধন্যবাদ $&।
-CDSঅপশনটি দিয়ে পার্ল চালান
$1সাথে প্রতিস্থাপন করুন $&এবং আপনি কয়েক জোড়া বন্ধনী হারাতে পারেন।
:;{.;?);>?)},
গল্ফস্ক্রিপ্ট শীর্ষ ২০ জনের মধ্যে একটি নয়, তবে গল্ফস্ক্রিপ্টবিহীন একটি কোডগল্ফ ... ( নিজে এটি চালান )
পূর্ববর্তী সংস্করণ: ( স্ক্রিপ্ট চালান )
1/:;{;\-,;,(<},
:;? আপনি ইচ্ছাকৃতভাবে newbies বিভ্রান্ত করার চেষ্টা করছেন, আপনি না? ;)
)- এটি তখন এটি একটি হাসিখুশি করে তুলবে :)। দুর্ভাগ্যক্রমে, আমি এমনকি 1 সংখ্যাটি মুছে ফেলার কোনও উপায় খুঁজে পাইনি (গল্ফস্ক্রিপ্ট newbies জন্য দ্রষ্টব্য: আপনি কোডটিতে যে কোনও ;একটি x(বা অন্য কোনও চিঠি বা অঙ্ক - বা স্ক্রিপ্টে অন্য কোনও অক্ষর ব্যবহার করা হয়নি) দিয়ে প্রতিস্থাপন করতে পারেন । এই বিশেষ ক্ষেত্রে ;কেবল একটি পরিবর্তনশীল নাম - এবং "পপ এবং বাতিল" এর অর্থ নেই Golf
:a{]a.@--,(},
:x{{=}+x\,,(},
জয়ের যোগ্যতা অর্জন করতে পারে না, তবে গজ কাটাটি কার্যকর।
gets.chars{|c|$><<c if$_.count(c)>1}
sএবং $_দ্বিতীয় উপস্থিতির জন্য ব্যবহার করেন তবে আপনি 4 টি অক্ষর সাশ্রয় করতে পারেন (এর আগে স্থানটি তখন ডিসপেনসেবল)।
আমি এটি এত সংক্ষিপ্ত হবে আশা করিনি।
2.7: a=raw_input();print filter(lambda x:a.count(x)>1,a)
3.0: a=input();print''.join(i for i in a if a.count(x)>1)
raw_input(): স্ট্রিং
ইনপুটটিকে স্ট্রিং হিসাবে ( input()= eval(raw_input()))
(পাইথন 3.0: input()রূপান্তরিত করা হয়েছে raw_input())
filter(lambda x:a.count(x)>1,a): aযদি সমস্ত অক্ষর aএকাধিকবার পাওয়া যায় তবে এর মধ্যে ফিল্টার করুন ( a.count(x)>1)।
input()বরং raw_input()। যদিও আপনাকে একটি বন্ধনী বন্ধনীর জন্য একটি চরিত্র যুক্ত করতে হবে, যেহেতু printঅজগর 3 এ একটি ফাংশন
''.join(...)
মঞ্জুর যে এটি টিআইওবি তালিকার অংশ নয়, তবে এটি মজাদার (-:
<<<$s sed 's/./&\n/g'|head -c -1|sort|uniq -c|sed -n 's/^ *1 (.*)/\1/p'|tr -d '\n'|sed 's:^:s/[:; s:$:]//g\n:'|sed -f - <(<<<$s)
ডি-গল্ফ করা সংস্করণ:
s=helloworld
<<< $s sed 's/./&\n/g' \
| head -c -1 \
| sort \
| uniq -c \
| sed -n 's/^ *1 (.*)/\1/p' \
| tr -d '\n' \
| sed 's:^:s/[:; s:$:]//g\n:' \
| sed -f - <(<<< $s)
প্রথম সেড প্রতি লাইনে একটি অক্ষরে ইনপুট রূপান্তর করে। দ্বিতীয় সেড অক্ষরগুলি সন্ধান করে যা কেবল একবারই ঘটে। তৃতীয় সেড একটি সেড স্ক্রিপ্ট লিখেছেন যা অনন্য অক্ষর মুছে দেয়। শেষ সেড উত্পন্ন স্ক্রিপ্টটি কার্যকর করে।
⊇.oḅlⁿ1∧
ফাংশন জমা। প্রযুক্তিগতভাবে নন-কেপটেটিং কারণ প্রশ্নাগুলি কী ল্যাঙ্গোয়েজদের প্রতিযোগিতা করার অনুমতি দেয় তার ক্ষেত্রে একটি সীমাবদ্ধতা রয়েছে (তবে, আরও বেশ কয়েকটি উত্তর ইতিমধ্যে বিধিনিষেধ উপেক্ষা করেছে)।
⊇.oḅlⁿ1∧
⊇ Find {the longest possible} subset of the input
o {for which after} sorting it,
ḅ and dividing the sorted input into blocks of identical elements,
lⁿ1 the length of a resulting block is never 1
. ∧ Output the subset in question.
পাইথনে আরও কিছু বিকল্প (এখানে কয়েক অক্ষর) রয়েছে:
a=raw_input();print''.join(c for c in a if a.count(c)>1)
আপনি যদি আউটপুটটিকে তালিকা হিসাবে গ্রহণ করেন (যেমন ['l', 'l', 'o', 'o', 'l']), তবে আমরা এটিকে 49 টি অক্ষরে সিদ্ধ করতে পারি :
a=raw_input();print[c for c in a if a.count(c)>1]
>1ভাল ধারণা! আমি কি আমার সমাধানের সাথে এটি যুক্ত করতে পারি?
@x=split//,<>;$s{$_}++for@x;for(@x){print if($s{$_}>1)}
স্টিডিনের কাছ থেকে পড়ে।
এক্সটলিবের এক্সট্রিং স্ট্রিং ব্যবহার করুন
open ExtString.String
let f s=let g c=fold_left(fun a d->a+Obj.magic(d=c))0 s in replace_chars(fun c->if g c=1 then""else of_char c)s
নন-গল্ফ সংস্করণ
open ExtString.String
let f s =
let g c =
fold_left
(fun a c' -> a + Obj.magic (c' = c))
0
s
in replace_chars
(fun c ->
if g c = 1
then ""
else of_char c)
s
ফাংশনটি gস্ট্রিংয়ে সি এর উপস্থিতির সংখ্যা প্রদান করে। ফাংশনটি fখালি স্ট্রিং বা উপস্থিতি সংখ্যার উপর নির্ভর করে চরটিযুক্ত স্ট্রিং দ্বারা সমস্ত অক্ষরকে প্রতিস্থাপন করে। সম্পাদনা করুন: আমি বলের অভ্যন্তরীণ উপস্থাপনাকে গালি দিয়ে 6 টি অক্ষর দিয়ে কোডটি ছোট করেছি :-)
ওহ, এবং ocaml টিআইওবি সূচকে 0- ;)
while($x<strlen($s)){$c=$s[$x];echo substr_count($s,$c)>1?$c:'';$x++;}
asumption $ s = 'helloworld' সহ
s->{for(char c=96;++c<123;s=s.matches(".*"+c+".*"+c+".*")?s:s.replace(c+"",""));return s;}ব্যাখ্যা:
s->{ // Method with String as both parameter and return-type
for(char c=96;++c<123; // Loop over the lowercase alphabet
s=s.matches(".*"+c+".*"+c+".*")?
// If the String contains the character more than once
s // Keep the String as is
: // Else (only contains it once):
s.replace(c+"","")); // Remove this character from the String
return s;} // Return the modified String"$args"-replace"[^$($args|% t*y|group|?{$_.Count-1}|% n*)]"কম গল্ফড:
$repeatedСhars=$args|% toCharArray|group|?{$_.Count-1}|% name
"$args"-replace"[^$repeatedСhars]"দ্রষ্টব্য: $repeatedCharsএকটি অ্যারে। ডিফল্টরূপে, একটি পাওয়ারশেল অ্যারেগুলিকে স্ট্রিংয়ে রূপান্তর করার সময় স্পেস চর দ্বারা অ্যারে উপাদানগুলিতে যোগদান করে। সুতরাং, regexp স্পেস থাকে (এই উদাহরণে, [^l o])। স্পেসগুলি ফলাফলকে প্রভাবিত করে না কারণ ইনপুট স্ট্রিংয়ে কেবলমাত্র অক্ষর থাকে।
বেনামে ট্যাসিট প্রিফিক্স ফাংশন।
∊⊢⊆⍨1<⍧⍨⍧⍨ কাউন্ট-ইন সেলফি (আর্গুমেন্টের মধ্যে যুক্তির উপাদানগুলির উপস্থিতি গণনা করুন)
1< বুলিয়ান মাস্ক যেখানে তার চেয়ে কম less
⊢⊆⍨ সেই মুখোশটি দিয়ে আর্গুমেন্টটি ভাগ করুন (1s-তে একটি নতুন পার্টিশন শুরু করা এবং 0 সেটে সরানো)
∊ ε nlist (চেপ্টা)
s=>[...s].filter(c=>s.match(c+'.*'+c)).join``
a=utf8ToInt(scan(,''));intToUtf8(a[!a%in%names(table(a)[table(a)<2])])এমনকি টিআইওবি শীর্ষ 20 টি ভাষা থেকেও একটি দুর্বল প্রচেষ্টা। আমি জানি দ্বিতীয়ার্ধ সম্পর্কে কিছু করা যেতে পারে তবে এই মুহুর্তে কোনও গল্ফ আমাকে ছেড়ে যায়।
স্ট্রিং হিসাবে ইনপুট, একটি অক্ষরের অ্যারে হিসাবে আউটপুট।
s=>[...s].filter(x=>s.split(x)[2])
map: tio.run/##BcExDoAgDADAvzgYOtjBHT9CTCSICqmUWKL8vt5l/...
p=>[...p].map((v,i,a)=>a.filter(f=>f==v).length).reduce((a,c,i)=>c>1?a+=p[i]:a,[]).join``পরিবর্তে ব্যবহার করতে পারেন .join("")।
কোড
implode('',array_intersect(str_split($text),array_flip(array_filter(array_count_values(str_split($text)),function($x){return $x>=2;}))));
সাধারণ কোড
$text = 'helloworld';
$filter = array_filter(array_count_values(str_split($text)), function($x){return $x>=2;});
$output = implode('',array_intersect(str_split($text),array_flip($filter)));
echo $output;
পিএইচপি - 83 78
<?for($a=$argv[1];$i<strlen($a);$r[$a[$i++]]++)foreach($ras$k=>$c)if($c>1)echo$k
উন্নত সংস্করণ:
<?for($s=$argv[1];$x<strlen($s);$c=$s[$x++]) echo substr_count($s,$c)>1?$c:'';
অবশ্যই এটি বন্ধ করার জন্য নোটিশ প্রয়োজন
সম্পাদনা: উন্নতি @ চেংকি মুয়ালিয়ানো দ্বারা অনুপ্রাণিত
আমি কোডগল্ফে খুব খারাপ :)
string s;cin>>s;string w{s}; auto l=remove_if(begin(s),end(s),[&w](auto&s){return count(begin(w),end(w),s)==1;});s.erase(l,end(s));cout<<s;
ungolfed:
#include <algorithm>
#include <string>
#include <iostream>
int main() {
using namespace std;
string s;
cin >> s;
const string w{s};
auto l = remove_if(begin(s), end(s), [&w](auto& s) {
return count(begin(w), end(w), s) == 1;
});
s.erase(l, end(s));
cout << s;
return 0;
}