ইনপুট ∩ উত্স কোড

70

ইন্ট্রো

চ্যালেঞ্জটি হ'ল এমন একটি প্রোগ্রাম / ফাংশন তৈরি করা যা তার নিজস্ব উত্স কোড এবং প্রদত্ত স্ট্রিং ইনপুটটির ছেদটি ছাপায়। এটি কোড গল্ফ এবং আরও সুনির্দিষ্ট হতে হবে:

  • Iইনপুট সেট করা যাক
    • {"a","b","c"}
  • Sউত্স কোড সেট করা যাক
    • {"b","f"}
  • তারপর ছেদটি তারা ভাগ করে নেবে
    • I ∩ S = {"b"}

ইনপুট

ইনপুট নমনীয়। উত্স কোডের জন্য ব্যবহৃত অক্ষর এনকোডিংটি পরিচালনা করতে সক্ষম হওয়া উচিত।

আউটপুট

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

  • আউটপুট নমনীয়:
    • যে কোনও ডেটা স্ট্রাকচার (স্ট্রিং বা অন্যথায়) হতে পারে
    • আনর্ডারড করা যায়
    • একটি পিছনে থাকতে পারে \n
    • স্বতন্ত্র হওয়া উচিত

সীমাবদ্ধতা

কুইন চ্যালেঞ্জগুলির অনুরূপ , প্রোগ্রাম / ফাংশনটি তার নিজস্ব উত্স কোডটি না পড়তে পারে এবং 0-বাইট সমাধানগুলি অনুমোদিত নয়।

উদাহরণ

  • # 1
functor x(I){ return I ∩ self; }

Inputs                                Outputs
------                                -------
enter preformatted text here      ->  {"e","n","t","r","f","o","x"}

["Albrt"," Einstin"]              ->  {"l","r","t","n","s"}
  • # 2
(_)->_&"(_)->&\"\\"

Inputs                                Outputs
------                                -------
"Security at the expense of       ->  "
usability comes at the expense 
of security."

(0____0)                          ->  (_)
  • # 3
ಠa益длф


Inputs                                Outputs
------                                -------
Far out in the uncharted backwaters ->"a"    
of the unfashionable end of the 
Western Spiral arm of the Galaxy lies 
a small unregarded yellow sun. 
Orbiting this at a distance of roughly 
ninety-eight million miles is an 
utterly insignificant little blue-green 
planet whose ape-descended life forms 
are so amazingly primitive that they 
still think digital watches are a pretty 
neat idea.

(ノಠ益ಠ)ノ彡┻━┻                      ->"ಠ益"

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

Albert Einstein

\__( O__O)_/

!@#$%^&*()_+{}|:"<>?

1234567890-=[]\;',./

(ノಠ益ಠ)ノ彡┻━┻

“¤>%,oỊȤʠ“ØụĊ5D³ṃṠɼQ»j;Ç;“;}¶”

┬──┬ ノ( ゜-゜ノ)

Far out in the uncharted backwaters of the unfashionable end of the Western Spiral arm of the Galaxy lies a small unregarded yellow sun. Orbiting this at a distance of roughly ninety-eight million miles is an utterly insignificant little blue-green planet whose ape-descended life forms are so amazingly primitive that they still think digital watches are a pretty neat idea.

হালনাগাদ

  • [১ 16-০৮-১০]: সেটগুলি পৃথক পৃথক বস্তুর সংগ্রহহীন সংগ্রহ
  • [১ 16-০৮-১০]: পিছনে থাকা নতুন লাইন গ্রহণযোগ্য
code-golf  quine 
— NonlinearFruit
সূত্র
2
আউটপুটে সদৃশ অক্ষর থাকতে পারে?
— ডিজিটাল ট্রমা
1
@ ডিজিটালট্রামা # 1, # 2 এবং # 3 উদাহরণ থেকে এটি প্রদর্শিত হয় না
— লুইস মেন্ডো
@ ডিজিটালট্রামা অস্পষ্টতার জন্য দুঃখিত, সেটগুলি (গাণিতিক অর্থে) ক্রমটিকে উপেক্ষা করুন এবং কোনও পুনরাবৃত্তি নেই।
— ননলাইনফর্ট
22
একটি সাধারণীকৃত কুইন নিয়ে আসার জন্য অভিনন্দন যেখানে সেরা সমাধানগুলি ভাষার মানক কোয়েনের উপর ভিত্তি করে না। :)
— মার্টিন এন্ডার
1
যদি কোনও সেটের পুনরাবৃত্তি না থাকে তবে ইনপুট সেটগুলিতেও পুনরাবৃত্তি থাকা উচিত নয়? নাকি ইনপুটটি আসলে কোনও সেট নয়?
— ব্যবহারকারী 81655

উত্তর:

15

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

আমাকে এক বাইট বাঁচানোর জন্য কার্লকে ধন্যবাদ :-) আমাকে দুটো বাইট বাঁচানোর জন্য দাদাকে ধন্যবাদ!

আমি মনে করি এটি কার্যকর হয় তবে এটি আমার প্রথম চ্যালেঞ্জ তাই আমি 100% নিশ্চিত নই। : \

print(set("printseu()&'"+'+"')&set(input()))

43 বাইট সহ ল্যাম্বদা সংস্করণ: lambda a:set(" lambdaset()&'"+':+"')&set(a)

— জেরেমি
সূত্র
8
'eroticpuns\()&\''স্ট্রিং যুক্ত করার চেয়ে কম। (পালাতে পেরে 'তবে আপনার অতিরিক্ত `\` দরকার) সেখানে বিন্দুটি কেন?
— কার্লকাস্টোর
ওফস, এটি .ছিল কম গল্ফড কোডের একটি প্রতীক। ব্যাকস্ল্যাশ ব্যবহার করা কার্যকর হয় না কারণ তারপরে \` is \\ ` থেকে আউটপুট , এবং ইনপুট চরিত্রের সদৃশ করার অনুমতি নেই, আমার ধারণা।
— জেরেমি
1
আপনার ল্যাম্বদা অনুপস্থিত :।
— ডেনিস
ধন্যবাদ @ ডেনিস প্রোগ্রামে সমস্ত চরিত্রগুলি সন্ধান করার পরে আমার চোখগুলি মেঘলা শুরু করে;)
— জেরেমি
1
@Dada: আপনি চান, তাহলে এটা হতে পারে inspectour, nicestupor, poeticurns, nopictures, recountspi, অথবা inputscore। বা নতুনটির জন্য আপনি ব্যবহার করতে পারেন prunesit(কোড গল্ফাররা কী করে তার একটি সঠিক বিবরণ!) ipunster, বা nursepitঅন্যদের মধ্যে।
— দেউসোভি
11

ডায়ালগ এপিএল , 8 বাইট

'∩''⊢'∩⊢

∩বাম আর্গুমেন্ট থেকে সেই অক্ষরগুলি প্রত্যাবর্তন করে যা ডান আর্গুমেন্টে উপস্থিত থাকে (যদি বাম আর্গুমেন্টের কোনও সদৃশ না থাকে - এই ক্ষেত্রে যেমন হয় - তবে ফলাফলটিরও কোনও নকল নেই

⊢ যুক্তি হল

তারপরে স্ট্রিংটিতে সেই দুটি প্লাসের উদ্ধৃতি অক্ষর রয়েছে (দ্বিগুণ, এটি একটি স্ট্রিংয়ের মতো)।

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

— আদম
সূত্র
9

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

-1 বাইট @ জেরেমিকে ধন্যবাদ

lambda a:set(':&()smelt\ bad\'')&set(a)

বেনামে ল্যাম্বদা ফাংশন, একটি স্ট্রিং নেয়, একটি সেট দেয়

পুরাতন রুপ:

lambda x,w=set('newmatrixbuspdl_:-)(=,\ \''):w-(w-set(x))
— KarlKastor
সূত্র
আমি এটি পছন্দ করি তবে এটি কেবল একটির পরিবর্তে bac \\ two এ দুটি ব্যাকস্ল্যাশ ফিরে আসে।
— জেরেমি
এছাড়াও, আমি মনে করি আপনি ল্যাম্বদার নাম পরিবর্তন করে একটি বাইট সংরক্ষণ করতে পারেনa
— জেরেমি
1
@ জেরেমি টিপটির জন্য ধন্যবাদ, '\\'স্ট্রিং আকারে ব্যাকস্ল্যাশকে উপস্থাপন করার জন্য পাইথনের কেবল পথ, কারণ এককটি শেষের উদ্ধৃতি থেকে রক্ষা পাবে, কাজেই আপনাকে ব্যাকস্ল্যাশ দিয়ে ব্যাকস্ল্যাশ থেকে বাঁচতে হবে। টাইপ করুন print '\\'এবং আপনি দেখতে পাবেন যে এটি কেবল একটি ব্যাকস্ল্যাশের জন্য প্রতিনিধিত্ব।
— কার্লকাস্টার
আপনি 36 এ পেতে পারেন lambda a:{*''' lambda&':{}*'''}&{*a}।
— মরগান থ্র্যাপ
1
@MorganThrapp 35lambda a:{*' lambda&\\\':{}*'}&{*a}
— seequ
9

পার্ল 6 , 56, 55 বাইট

" ফ্রেঞ্চ " / ইউনিকোড সংস্করণ (55 বাইট)

say perl q.say perlq∩$*IN\\\.comb:..comb∩$*IN.comb:

" টেক্সাস " / এএসসিআইআই সংস্করণ (56 বাইট)

say (q.sayq(&) $*IN\\\.combperl..comb (&)$*IN.comb).perl
say perl q.sayq(&) $*IN\\\.comb:perl..comb (&)$*IN.comb:

অ golfed:

my \Source = 'my \\Source = \'say ( $*IN.comb.Set ∩ Source.comb.Set ).perl\'';
say ( $*IN.comb.Set ∩ Source.comb.Set ).perl

উদাহরণ:

$ echo -n 'say perl q.say perlq∩$*IN\\\.comb:..comb∩$*IN.comb:' > test-unicode.p6

$ echo -n 'say (q.sayq(&) $*IN\\\.combperl..comb (&)$*IN.comb).perl' > test-ascii.p6

$ perl6 test-ascii.p6 <<< 'abcdefghijklmnopqrstuvwxyz'
set("p","a","l","r","c","q","b","s","e","m","y","o")

$ perl6 test-unicode.p6 < test-unicode.p6
set("\\","I","p"," ","a","c","l","r","q","b","∩","*","s","m","e",".","y",":","o","N","\$")

$ perl6 test-ascii.p6 < test-ascii.p6
set("p","\\","I"," ","a","l","r","c","q","b",")","*","s","e","m","\&",".","(","y","o","N","\$")

$ perl6 test-ascii.p6 < test-unicode.p6
set("p","\\","I"," ","a","l","r","c","q","b","*","s","e","m",".","y","o","N","\$")

$ perl6 test-unicode.p6 <<< 'Albert Einstein'
set(" ","l","r","b","s","e")

$ perl6 test-unicode.p6 <<< '\__( O__O)_/'
set("\\"," ")

$ perl6 test-ascii.p6 <<< '!@#$%^&*()_+{}|:"<>?'
set(")","*","\&","(","\$")

$ perl6 test-unicode.p6 <<< "1234567890-=[]\\;',./"
set("\\",".")

$ perl6 test-unicode.p6 <<< '(ノಠ益ಠ)ノ彡┻━┻'
set()

“¤>%,oỊȤʠ“ØụĊ5D³ṃṠɼQ»j;Ç;“;}¶”
set("o")

$ perl6 test-unicode.p6 <<< '┬──┬ ノ( ゜-゜ノ)'
set(" ")


$ perl6 test-ascii.p6 <<< 'Far out in the uncharted backwaters of the unfashionable end of the Western Spiral arm of the Galaxy lies a small unregarded yellow sun. Orbiting this at a distance of roughly ninety-eight million miles is an utterly insignificant little blue-green planet whose ape-descended life forms are so amazingly primitive that they still think digital watches are a pretty neat idea.'
set("p"," ","a","l","r","c","b","s","e","m",".","y","o")
— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র
2
$*PROGRAMপ্রোগ্রামের উত্স কোড অ্যাক্সেস করে না এবং এইভাবে নিয়ম লঙ্ঘন করে?
— celtschk
@celtschk পোস্ট করার আগে আমার প্রশ্নটি পুনরায় পড়তে হবে, স্থির। (প্রযুক্তিগতভাবে $*PROGRAM
— সংকলকটি দেখতে পেল
8

এমএটিএল , 8 বাইট

'X&'''X&

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

ইনপুট হল একটি স্ট্রিং যা একক উদ্ধৃতিতে আবদ্ধ। যদি স্ট্রিংটিতে একটি একক-উদ্ধৃতি চিহ্ন থাকে, তবে এটি এড়াতে এটি নকল করা উচিত।

ব্যাখ্যা

'X&'''   % Push string with the three characters used by the program. The single-quote 
         % symbol needs to be escaped by duplicating it
X&       % Take input implicitly. Set intersection. Display implicitly
— লুইস মেন্ডো
সূত্র
5

হাস্কেল (30 বাইট)

এটি এমন বিরক্তিকর সমাধান ... তবে আমি এর চেয়ে ভাল আর করতে পারিনি। :(

filter(`elem`"f(term)\"i`l\\")
— MarLinn
সূত্র
5

ব্র্যাচল্যাগ , 23 বাইট

:{e.~e":{}e~\"fd\."}fd.

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

ব্যাখ্যা

:{                 }f      Find all chars that verify the predicate below
                     d.    Remove duplicates and output

  e.                       Take a char from the input ; this is our output…
    ~e":{}e~\"fd\."        … if that char is in the string :{}e~"fd. (the first \ is here
                               to escape the ")
— Fatalize
সূত্র
1
আপনি কি আমাদের চ্যাটরুমটি দেখতে পারেন?
— লিকি নুন
1
গোঁফ মানুষ :{এবং অবাক গোঁফ মানুষ জন্য +1:{}
— ধ্বংসাত্মক লেবু
4

সি, 142 বাইট

main(i){char*p,a[]="remain([*]){fought?>:01;,\\\"=capsv+-l}";for(;(i=getchar())>=0;p?putchar(i),memmove(p,p+1,a+strlen(a)-p):0)p=strchr(a,i);}

আদর্শে এটি চেষ্টা করুন ।

— owacoder
সূত্র
2
একটি অবারিত সংস্করণ এবং / বা ব্যাখ্যা দুর্দান্ত হবে!
— ওয়াইএসসি
আপনি একটি বাইট সংরক্ষণের sizeof aপরিবর্তে ব্যবহার করতে পারতেন strlen(a), তবে আরও ভাল এটি অ্যারেটিকে একটি পরিচিত আকার দেওয়া: a[99]="..."এবং 5 বাইটটি শেভ strlen(a)করে প্রতিস্থাপন করুন 99।
— জি। স্লিপেন
আরও 3 বা 4 বাইট প্রতিস্থাপনের (i=getchar())>=0মাধ্যমে সংরক্ষণ করা যায় read(0,&i,1)। এটি লিটল এন্ডিয়ান মেশিনে কাজ করে। iআপনি যদি কোনও যুক্তি দিয়ে প্রোগ্রামটি চালনা না করেন তবে এটি 1 এ শুরু করা হয়। আপনি যদি এটির পাশাপাশি বিগ-এন্ডিয়ান মেশিনগুলিতে কাজ করতে চান তবে আমি যুক্তির তালিকা থেকে সরিয়ে main()এটিকে চর হিসাবে ঘোষণা করুন (তবে আপনি কেবল 3 বাইট সংরক্ষণ করেন)। read()ইওএফটিতে সুবিধাজনকভাবে 0 প্রদান করে।
— জি। স্লিপেন
4

সিজেম, 8 বাইট

"`q&"`q&

এখানে চেষ্টা করুন।

ব্যাখ্যা:

"`q&"    e# Push that string to the stack
     `   e# Stringify, pops the string and pushes "\"`r&\"" to the stack
      q  e# Pushes the input to the stack
       & e# Union, pops two elements and pushes a list of every element that is contained in both.
— Loovjo
সূত্র
4

পাইথ , 9 8 বাইট

1 বাইট Sp3000 ধন্যবাদ

@Q"\Q@\"

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

@Q"\Q@\"
@Q"\Q@\""   implicit string ending

@Q           intersect the input with
  "\Q@\""   the string containing '\', 'Q', '@', '"'.
— ফুটো নুন
সূত্র
@z"z\"@1 বাইট সংক্ষিপ্ত।
— drobilc
@drobilc যে ফসকান যাবে \।
— Leaky নুন
ওহ, হ্যাঁ, পুরোপুরি সম্পর্কে ভুলে গেছি।
— drobilc
4

রেটিনা, 21 20 বাইট

উত্স কোডে না থাকা অক্ষরগুলি সরিয়ে দেয়, তারপরে সদৃশ অক্ষরগুলি সরান।

[^Ds.n\n[-a_-]

Ds`.

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

— mbomb007
সূত্র
আপনার উত্স কোডটিতে একটি লাইনফিড রয়েছে (আপনার আউটপুটটি হবে না)।
— মার্টিন এন্ডার
আমি মূলত আগে একই সমাধান ছিল কিন্তু এটি পোস্ট করতে ভুলে গেছি। আপনি পরিসীমা সহ কয়েকটি বাইট সংরক্ষণ করতে পারেন [-a(এবং তারপরে একটি আন্ডারস্কোর এবং একটি হাইফেন অন্তর্ভুক্ত করুন এবং দ্বিতীয় লাইনে ব্যাকটিকটি ড্রপ করুন)। তবে ভবিষ্যতের রেফারেন্সের জন্য, ]যদি আপনি এটি প্রথম চরিত্র হিসাবে রাখেন তবে পালানোর দরকার পড়বে না। ওহ এবং কৌতূহলের জন্য, আপনি পেছনের লাইনফিডটি এড়াতে দুটি পর্যায়ে অদলবদল করতে পারেন।
— মার্টিন এন্ডার
@ মার্টিনএেন্ডার এটি এখনও লাইন ফিডগুলি নকল করে না, এটি কি সমস্যা?
— mbomb007
ওহ, আপনি ঠিক বলেছেন, আমি তা লক্ষ্য করিনি। sআপনাকে তখন বিকল্প Dএবং অক্ষর শ্রেণীর সাথে যুক্ত করতে হবে ।
— মার্টিন এন্ডার
4

গণিত, 35 বাইট

Characters@"\"#&@C\acehrst⋂"⋂#&

বেনামে ফাংশন। যে কোনও উত্পন্ন বার্তা উপেক্ষা করুন। ইনপুট হিসাবে অক্ষরের একটি তালিকা নেয় এবং আউটপুট হিসাবে অক্ষরের একটি তালিকা প্রদান করে। ইউনিকোড অক্ষরটি ইউ + 22 সি 2 এর জন্য \[Intersection]।

— LegionMammal978
সূত্র
4

সি #, 36 বাইট

s=>s.Intersect("s=>.Interc(\"\\);");

উদ্দিষ্ট কাস্ট হ'ল Func<string, IEnumerable<char>>( stringইনপুট, IEnumerable<char>আউটপুট)।

— দুধ
সূত্র
— দুধ
4

ভিম, 78 68 78 79 61 কীস্ট্রোক

আমার পদ্ধতির সম্পূর্ণ পরিবর্তন করেছে:

oo/\$kjxd<esc>/o<cr>xj$/\/<cr>xj$/\\<cr>xj$/$<cr>xj$/k<cr>xj$/x<cr>xj$/j<cr>xj$/d<cr>xkdd

কিভাবে এটা কাজ করে:

প্রথমত, এটি সমস্ত প্রোগ্রামের অক্ষরগুলির সাথে একটি লাইন তৈরি করে, তারপরে, এটি প্রোগ্রামের প্রতিটি অক্ষরের প্রথম উদাহরণ খুঁজে পায়, যা হয় ইনপুটটিতে থাকে, যদি ইনপুট এবং আউটপুট ছেদ করে, অথবা আউটপুট যদি তারা না করে, মুছে ফেলে এটি, ফাইলের শেষ অক্ষরে চলে যায় (সুতরাং এটি প্রায় আবৃত হয়) এবং উত্সের প্রতিটি অনন্য চরিত্রের জন্য ডি বাদে যেখানে ফাইলের শেষ দিকে যাওয়ার পরিবর্তে এটি ইনপুট মোছার মাধ্যমে শেষ হয়

— ধ্বংসাত্মক লেবু
সূত্র
ব্যাকস্ল্যাশ আপনার কোডে রয়েছে তবে মনে হচ্ছে এটি আপনার স্ট্রিংয়ে নেই।
— টাইটাস
এটি কি তৃতীয় নয়?
— ধ্বংসাত্মক লেবু
4

বাশ , 45 50 41 39 37 34 29 বাইট

-9 বাইট জেফ রেডিকে
ধন্যবাদ -4 বাইট ধন্যবাদ ডেনিসকে
-5 বাইট ধন্যবাদ নাহুয়েল ফুইলুলকে

grep -o '[] [|\'\'grepouniq-]

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

— রিলে
সূত্র
আপনার কি কেবল একটি গ্রেপ কমান্ডের দরকার নেই?
— জেফ রেডি
@ জিওফ্রিডি প্রথম গ্রেপ কমান্ড ইনপুটটি প্রতি লাইনে একটি অক্ষরে বিভক্ত করে।
— ডেনিস
ঠিক আছে তবে -কে দ্বিতীয় গ্রেপের কাছে রাখা যায়নি
— জিওফ রেডি
আপনি ঠিক বলেছেন, এবং এটি '' 'র জন্য পরীক্ষা করতে হবে। ধন্যবাদ!
— রিলে 14 ই
1
টাইটাস বাসের পরে এটি করার পরে, গ্রেপ আসে -oএবং [] [|\'grepouniq-]। সুতরাং এটি এগুলোর কিছু খুঁজছেন হয়: [ ] {space} [ | {slash} ' g r e p o u n i q - ]।
— রিলে
3

পাওয়ারশেল ভি 4 +, 122 104 বাইট

([char[]]($args[0]+'acegfhmnoprstu012|][()"?+_,.$-{0}{1}{2}'-f("'","}","{"))|group|?{$_.count-gt1}).name

বিতৃষ্ণা। পাওয়ারশেলের কুইনস বা কুইন-জাতীয় কোডটি সাফল্য দেয় কারণ স্ট্রিং প্রতিস্থাপনের ফর্ম্যাটিংটি এত জটিল।

ace...{2}মাঝের স্ট্রিংটি প্রতিটি অক্ষর যা কোডের বাকী অংশে উপস্থিত থাকে। {0}{1}{2}সাথে ব্যবহার করা হয় -fটান ormat অপারেটর '{}স্ট্রিং মধ্যে অক্ষর।

এটি ইনপুটটির সাথে একটি চর-অ্যারে হিসাবে মিলিত হয় $args, তারপরে পাইপলাইনে খাওয়ানো হয়। প্রথম স্টপটি Group-Objectযা (মূলত) ইনপুট অবজেক্টগুলির একটি হ্যাশটেবল তৈরি করে এবং ইনপুটটিতে তারা কতবার ঘটে। এটি কেবলমাত্র সেই আইটেমগুলির চেয়ে বেশি যেগুলি নির্বাচন করতে |?{...}তা পাইপযুক্ত । আমরা পেরেন্সে এ্যাপ্যাপুলেট করি এবং হ্যাশটেবলের অংশটি বের করে আনি (এটি যেখানে ভি 4 + প্রয়োজনীয়তা কার্যকর হয়, অন্যথায় আমাদের পাইপলাইনে অতিরিক্ত পর্যায়ে প্রয়োজন )।Where-Object.count1.Name|Select Name

এই উপাদানগুলি পাইপলাইনে রেখে গেছে (অ্যারে হিসাবে), এবং মুদ্রণ জড়িত।

— AdmBorkBork
সূত্র
3

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

x='c=set;print c(`x`)&c(raw_input())';exec x

কেবল মজাদার জন্য, এখানে একটি কুইনের মতো সম্পূর্ণ প্রোগ্রাম জমা দেওয়া। পাইথন 2 সেটটির স্ট্রিং প্রতিনিধিত্ব করে।

— Sp3000
সূত্র
3

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

f=
t=>[..."\"().=>O[\\]defilnrtx~"].filter(e=>~t.indexOf(e))
;
<input placeholder=Input oninput=o.value=f(this.value).join``><input placeholder=Output id=o>
স্নিপেট প্রসারিত করুন

মূল স্ট্রিং / চরিত্রের অ্যারে এবং উত্স কোড উভয়টিতে উপস্থিত অক্ষরের একটি অ্যারে প্রদান করে। সম্পাদনা করুন: @ ব্যবহারকারী81655 ধন্যবাদ 2 বাইট সংরক্ষণ করা।

— নিল
সূত্র
f=s=>[...new Set(f+'')]...বাইট সংরক্ষণ করতে পারে।
— ব্যবহারকারী 81655
বা আরও ছোট:f=s=>[...s].filter(c=>(new Set(f+'')).has(c))
— ব্যবহারকারী 81655
@ user81655 কমপক্ষে ফায়ারফক্সে এর উত্স কোড পড়ে f+''কাজ করে f। (কিছু কিছু ক্ষেত্রে আপনি ফায়ারফক্সকে সোর্স ফাইলটি পরিবর্তন করে ক্রাশ করতে পারেন এবং তার থেকে বোঝা একটি ক্রিয়াকলাপটি চালিয়ে যাওয়ার চেষ্টা করে))
— নীল
@ user81655 আপনার দ্বিতীয় উদাহরণটি ব্যর্থ হয়েছে যখন sউপাদানগুলির পুনরাবৃত্তি ঘটে এবং যাইহোক এটির indexOfচেয়ে ছোট new Setহয়।
— নীল
সেক্ষেত্রে cআপনি অক্ষর সংরক্ষণের চেষ্টা করতে পারেন ( প্যারামিটারটিকে ইতিমধ্যে তালিকায় থাকা একটি চরিত্রে পরিবর্তন করা )।
— ব্যবহারকারী 81655
3

মতলব, 37 বাইট

খুবই সাধারণ:

intersectছেদটি খুঁজে পেতে অন্তর্নির্মিত ব্যবহার করে । উত্স কোডটি হার্ড কোডেড। ইনপুট অবশ্যই উদ্ধৃতি চিহ্নের ভিতরে দিতে হবে''

intersect(input(''),'''intersc(pu),')
— স্টিও গ্রিফিন
সূত্র
আপনার একটি বেনামী ফাংশন ব্যবহার করা উচিত ছিল ... 5 বাইট দ্বারা আপনাকে পরাজিত করবে
— সানচাইজিস
হেই, আমি অনুমান করি যে এটি আমার সেরা গল্ফ ছিল না ...
— স্টিভি গ্রিফিন
3

জাভাস্ক্রিপ্ট (ওএস এক্স 10 এ ক্রোম 58), 12654 12426 11992 বাইট

https://paste.ubuntu.com/25593218/

https://paste.ubuntu.com/25595798/

https://paste.ubuntu.com/25595831/

মূল কোড:

var t=prompt();"!+()[]".split("").forEach(function(f){if(t.includes(f))alert(f)})

এটি তখন jsfk নামক একটি প্রোগ্রামিং স্টাইলে রূপান্তরিত হয়েছিল যা কেবল এই ছয়টি অক্ষর ব্যবহার করে: 

(+)[!]

একটি অনলাইন সংকলক ব্যবহার করে।

— Tornado547
সূত্র
যদি jsfk ভাষা হয় তবে জাভাস্ক্রিপ্টের পরিবর্তে আপনার এটি শিরোনামে ব্যবহার করা উচিত।
— ননলাইনারফ্রুট
1
@ ননলাইনারফ্রুট jsfk একটি প্রোগ্রামিং স্টাইল । এটি বৈধ জাভাস্ক্রিপ্ট
— টর্নেডো 547
2

আর, 129 বাইট

f=function(s){b=strsplit("f=unctio(s){arpl;,[1]b\\\"qemh0T}",c())[[1]];cat(b[unique(pmatch(strsplit(s,c())[[1]],b,0,T))],sep="")}

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

— user5957401
সূত্র
আপনি প্রায় এক বছরে সাইটটি পরিদর্শন করেননি, তবে f=function(s)cat(instersect(strsplit(s,"")[[1]],strsplit("f=unctio(s)aerpl,\\\"[1]","")[[1]]),sep="")এটি 101 বাইট, এবং আমি মনে করি যে I / O ফর্ম্যাটটি সহজ ছাড়াও হতে পারে cat... ছাড়া ...
— জিউসেপ
2

রুবি, 34 + nপতাকা = 35 বাইট

বহু-রেখাযুক্ত ইনপুট দিয়ে ঠিক কাজ করে না, যেহেতু -nপ্রোগ্রামটি STDIN লাইন-বাই-লাইনে প্রক্রিয়াজাত করে। এই কোডটিতে নতুন লাইন নেই, তবে এর মতো কিছু ইনপুট করার চেষ্টা করা একটির পরিবর্তে একাধিক অ্যারে আউটপুট দেবে। যদি অনুমান অনুসারে এটি ভাল না হয় তবে দয়া করে আমাকে জানান এবং আমি ঠিক করব will

p $_.chars&"\\\"p $_.chars&".chars
— মান কালি
সূত্র
2

লিস্টশার্প , 222 বাইট

STRG S=READ[<here>+"\\S.txt"]
ROWS T=ROWSPLIT S BY [""]
ROWS R=ROWSPLIT "STRG =EAD[<her>+\".tx]OWPLIBYCFMHVNc#isn()oay\r\n" BY [""]
ROWS R=SELECT FROM T WHERE[EVERY STRG IS ANY STRG IN R]
SHOW=<c#R.Distinct().ToArray()c#>

হাস্যকর তবে আমি আনন্দিত

— downrep_nation
সূত্র
2

সেড, 47 টি অক্ষর

:s;st[^])(*\1.s2t:[;^]tt;st\(.\)\(.*\1\)t\2t;ts

আমি কতটা হতাশ হয়েছি এটি কতক্ষণ আগত, বিশেষত পুনরাবৃত্ত অক্ষরগুলি সরিয়ে ফেলার জন্য।

— জিওফ রেডি
সূত্র
এটি সেডের কোন সংস্করণ? জিএনইউ সেড ড sed: -e expression #1, char 47: unterminated `s' command।
— ডেনিস
1-for -r সহ 43 বাইট: sed -r ':;ss[^][str().*\12;:^]ss;ss(.)(.*\1)s\2s;t' আমি আপনার লেখার আগে এটি লিখেছিলাম এবং এটি খুব মিল হতে পারে
— izabera
@ ডেনিস স্থির; একটি থাকার পরে দেখা গেল: [এর পরে [এটি একটি চরিত্রের শ্রেণিটি চেষ্টা এবং বিশ্লেষণের কারণ ঘটিয়েছে)
— জেফ রেডি
@ আইজাবের সুন্দর, আমি বেশ অবাক হয়েছি যে: কমান্ডটি আসলে কোনও লেবেলের প্রয়োজন হয় না এবং এটি লেবেল ছাড়া টিটির অর্থ পরিবর্তন করে
— জিওফ রেডি
হ্যাঁ এটি একটি জ্ঞানবাদ
— ইজাবের
2

জাভা 8 লাম্বদা, 152 142 140 টি অক্ষর

বেশ ছোট:

s->s.chars().mapToObj(i->(char)i).filter(c->"COSTab\"\\cefh(i)j+l-mn.oprstuv>".contains(""+c)).collect(java.util.stream.Collectors.toSet())

বা নিখরচায় এখানে:

public class Q89400 {

    static Set<Character> inAndQuine(String in) {
        return in.chars()
                .mapToObj(i->(char)i)
                .filter(c->"COSTab\"\\cefh(i)j+l-mn.oprstuv>".contains(""+c))
                .collect(java.util.stream.Collectors.toSet());

    }
}

অবশ্যই অরগোল্ফড সমাধানটি ভুল, কারণ এটি কোঁকড়ানো বন্ধনী এবং আরও কয়েকটি চরিত্রের সাথে মেলে না, এটি কেবল সম্পূর্ণতার জন্য their

ফাংশনটি হিসাবে একটি হিসাবে ইনপুট নেয় Stringএবং java.util.Set<Character>ইনপুট এবং উত্স উভয় উপস্থিত যা অক্ষর সমন্বিত একটি ফেরত ।

আপডেট

দেখা গেল যে সমাধানটি কাজ করছে না। আমি String#containsএকটি রেজেক্স ম্যাচের জন্য পরীক্ষা ভেবেছিলাম তবে এটি কেবল একটি আক্ষরিক মিল। আমি চরিত্রগুলি উদ্ধৃত করার জন্য কিছু পালানো যুক্ত করেছি .তবে এটি প্রয়োজনীয় ছিল না তবে পরিবর্তে সবকিছু নষ্ট করে দেওয়া হয়েছিল। এখন এটিকে রক্ষা না করে আমরা কিছু অক্ষর সংরক্ষণ করি এবং এখন এটি আসলে কাজ করে :)

এক-চরিত্রের ভেরিয়েবলগুলি আমাকে স্মরণ করিয়ে দেওয়ার জন্য @ ননলাইনারফ্রুটকে ধন্যবাদ জানাই।

— Frozn
সূত্র
inএকক চিঠির মতো নামকরণ করুনa
— ননলাইনারফ্রুট
3
@ ননলাইনারফুট আপনি ঠিক বলেছেন: ওরে আমি কীভাবে এটি ভুলতে পারি ?!
— হিমায়িত
2

এসকিউএফ , 71 69 64 বাইট

ফাইল-এর-হিসাবে-ফাংশন ফর্ম্যাটটি ব্যবহার করে:

i="-_h ;""=()sSplitrng"splitString"";i-(i-(_this splitString""))

যেমন কল "STRING" call NAME_OF_COMPILED_FUNCTION

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