স্ব-বর্ধমান কোড কোডি কোডি কোডি

Question

একটি প্রোগ্রাম (বা ফাংশন) লিখুন (আসুন একে পি 1 বলুন), যখন চালানো হয়, একই ভাষার অন্য প্রোগ্রাম পি 2 এবং পি 1 এর চেয়ে ঠিক 1 বাইট আউটপুট দেয়।

প্রোগ্রাম পি 2 চলাকালীন, একটি তৃতীয় প্রোগ্রাম পি 3 আউটপুট করা উচিত যা পি 2 এর চেয়ে 1 বাইট দীর্ঘ। পি 3 এর জন্য একটি প্রোগ্রাম পি 4 অবশ্যই আউটপুট করতে হবে যা পি 3, পি 6, ..., পি এর সমান এক বাইট দীর্ঘ হয় ∞

প্রোগ্রামের শৃঙ্খলা অনির্দিষ্টকালের জন্য যেতে হবে বা এমন জায়গায় যেতে হবে যেখানে অনুবাদক আর হ্যান্ডেল করতে পারবেন না (তবে অবশ্যই ভাষায় তাত্ত্বিকভাবে বৈধ প্রোগ্রাম হিসাবে থাকতে হবে)

বিধি

• স্ট্যান্ডার্ড লুফোলস নিষিদ্ধ
• চেইনে সমস্ত প্রোগ্রাম এক ভাষাতে হওয়া উচিত
• কোনও ইনপুট দেওয়া হয় না। আউটপুট stdout বা ফাংশন রিটার্ন মান যায়
• প্রোগ্রামটি একটি সময়ের পরে অবশ্যই শেষ হবে। এমন একটি প্রোগ্রাম যা নির্দিষ্ট সময় স্পটের পরে আউটপুট উত্পাদন বন্ধ করে তবে কখনই শেষ হয় না এটি যোগ্যতা অর্জন করে না

প্রতিটি ভাষায় বাইটে সংক্ষিপ্ততম প্রোগ্রাম পি 1 জিতেছে!

Comments

@ অরুরস কি ??? আমি নিজেই সেই ট্যাগটি যোগ করি নি ...

— আইব্যাগ

@ iBug নির্বিশেষে, জমাগুলি কি তাদের নিজস্ব উত্স কোড পড়ার অনুমতি দেয়?

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

@iBug "কুইন" ট্যাগটি এটি ডিফল্টরূপে নিষেধ করে এবং এটি সাধারণত উত্তরগুলি আরও আকর্ষণীয় করে তোলে। যদিও এটি আপনার উপর নির্ভর করে।

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

"puts <<2*2,2\nputs <<2*2,2\n\n2"রুবিতে প্রতিটি পুনরাবৃত্তিতে 2 দ্বারা বৃদ্ধি পায়। আমি এর চেয়ে ভাল কিছু পাই না। : - /। আকর্ষণীয় চ্যালেঞ্জ!

— এরিক ডুমিনিল

প্রোগ্রামের

— ফায়ার কিউবেজ

Answer 1

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

-২ বাইট @ শ্যাগি ধন্যবাদ

f=_=>"f=_"+f

স্নিপেট পরীক্ষা করা হচ্ছে

s=`f=_=>"f=_"+f`;

for(i=10;i--;s=eval(s)())
  o.innerText+=s+"\n";

<pre id=o></pre>

Comments

আমাকে এটি দেখতে একটি সেকেন্ড নিয়েছিল। নিনজা!

— শেগি

কেউ দয়া করে ব্যাখ্যা করতে পারেন, আমি তার চারপাশে আমার মাথা গুটিয়ে রাখতে পারি না, এটি কীভাবে বাড়বে?

— htmlcoderexe

@htmlcoderexe প্যারামিটার নামের আগে "f=_"একটি অতিরিক্ত प्रीেন্ডেন্ড করে _, যার কারণে এটি প্রতিটি পুনরাবৃত্তির দৈর্ঘ্যে বৃদ্ধি পায়।

— হারমান এল

Answer 2

এএসসিআইআই এর 7 , 4 বাইট

1603

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

আমি জানি যে 7 সাধারণত ASCII এ এনকোড হয় না, তবে এবার এটি একটি আরও সুবিধাজনক এনকোডিং যাতে আমরা প্রতিটি রানের সাথে 1 টি বাইট যোগ করি, 3 বিট না।

আমি নিশ্চিত নই যে এটি গণনা হিসাবে প্রত্যাখ্যান করেছে কিনা। (এটা, অস্পষ্ট হোক বা না হোক 7 quine ঠকায় না হতে স্বাভাবিকের এর যেমন উপায়ে একটি সংখ্যা মধ্যে সীমান্তরেখা straddles।) আপনি একটি শালীন যুক্তি হল যে করতে পারেন 0এনকোড 6, তবে সাধারণভাবে স্পষ্ট নয় যেখানে ফলে অক্ষর "থেকে আসা "২০০ 7 সালে এটির এতগুলি, মোটামুটি উদ্ভট, অন্তর্নিহিত আচরণ রয়েছে।

এই প্রোগ্রামটি নিজেকে 1যুক্ত করে মুদ্রণ করে এবং 1এটি এতে অনেকগুলি সংযোজন করলেও তা করবে। এখানে একটি মন্তব্য করা ডিবাগ ট্রেস 160311:

|| 160311      Initial data ||; initial program 160311
||7 60311      1 command = append 7 to data
|1 0311        6 command = escape from the last | onwards (7 escapes to 1)
|16e77         0311 commands = append 6e77 to data
|16e77 16e77   Implicit (program is empty): copy data past last | to program
|16e777 6e77   1 command = append 7 to data
71603111 e77   6 command = escape from the last | onwards
71603111 e77   e7 command = output in same encoding as the source

( |প্রোগ্রামটিতে কোনও বাকী নেই , সুতরাং eএটি তত্ক্ষণাত পার্শ্ব প্রতিক্রিয়া হিসাবে প্রোগ্রামটি ত্যাগ করবে, যার অর্থ চূড়ান্ত 7গুলি কখনই চলবে না)

সমস্ত চরিত্রগুলি কোথায় থেকে আসছিল সে সম্পর্কে মূল বিভ্রান্তিটি হ'ল 7-র বেশিরভাগ কমান্ডগুলি চলাকালীন কেবল ডেটা তৈরি করে এবং তারপরে 6কমান্ডগুলির একটি ক্রম পুনর্গঠন করার চেষ্টা করে যা প্রদত্ত ডেটাগুলির টুকরা তৈরি করতে পারে; এটি প্রায়শই শেষের কাছাকাছি আসে, তবে আসলটির সাথে এক নয়। (শৃঙ্খলাবদ্ধ উদ্দেশ্যে, আপনি সাধারণত একটি 7 টি প্রোগ্রাম এমনভাবে লিখুন যাতে ফলাফল প্রায় একই রকম হয়, সাধারণত নেতৃত্বাধীন বা পিছনের ক্ষেত্রে আলাদা হয় 7)) সুতরাং উদাহরণস্বরূপ, 1ডেটাতে পরিণত হয় 716, যা যুক্ত করার সহজতম উপায় 1বর্তমান তথ্য স্ট্রিং। আমরা মূলত এটি 16একটি ভিন্ন (তবে অনুরূপ) চরিত্রের ক্রম দিয়ে তৈরি করেছি , এর মধ্যে একটিটিকে ধ্বংসাত্মকভাবে সরিয়েছি|ডেটা দিয়ে চিহ্নিত করা। (আমার মনে হয় সম্ভবত সবচেয়ে ভাল যুক্তি যে এটি আক্ষরিক-একমাত্র কুইন নয় আউটপুটটি ইনপুট থেকে আলাদা!)

Answer 3

হাস্কেল , 74 66 বাইট

সম্পাদনা করুন:

• -2 বাইট ব্যবহার করে এইচ.পি.উইজ দ্বারা <>, তারপরে -6 চালিয়ে (10*)<$>।

এটি এখন সদ্য ফ্রি <>অপারেটর ব্যবহার করে ( Semigroupগুণটি, কোনও আমদানি ছাড়াই কাজ করতে GHC 8.4 প্রয়োজন requires)

main=putStr$fst<>show$(10*)<$>("main=putStr$fst<>show$(10*)<$>",1)

এটি অনলাইন চেষ্টা করুন! (টিআইও-তে এখনও জিএইচসি 8.4 নেই বলে আমদানির সাথে চিটগুলি রয়েছে))

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

• main=putStr$ নিম্নলিখিত স্ট্রিংয়ের মান আউটপুট করতে বয়লারপ্লেট হয়।

• fst<>showএটি একটি ফাংশন যা একটি টুপল নেয় এবং টিউলের স্ট্রিং প্রতিনিধিত্ব করে টুপলের প্রথম উপাদানযুক্ত একটি স্ট্রিং দেয় returns অর্থাত

  (fst<>show)(s,t) = fst(s,t)<>show(s,t) = s++show(s,t)

• (10*)<$>তার স্ট্রিং উপস্থাপনায় একটি সংখ্যা যুক্ত করে নিম্নলিখিত টিপলটির শেষ উপাদানটি 10 ​​দ্বারা গুণ করে 0।

Comments

আপনি সংরক্ষণ করতে পারবেন অন্তত 2 বাইট সঙ্গে(<>)

— H.PWiz

@ এইচ.পি.উইজ ধন্যবাদ, সরে গিয়ে আরও কিছু পেয়েছেন (10*)<$>।

— janrjan জোহানসেন

Answer 4

সি (জিসিসি) , 134 132 বাইট

ক্যানোনিকাল সি কুইনের হালকা রেকর্ডিং। ভয়াবহভাবে দীর্ঘ।

x;*s="x;*s=%c%s%c;main(i){for(i=__LINE__;i--;puts(&x));printf(s,34,s,34);}";main(i){for(i=__LINE__;i--;puts(&x));printf(s,34,s,34);}

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

Answer 5

বিচ্ছেদ 2 , 7 বাইট

'!+OR!"

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

স্ট্যান্ডার্ড ফিশন কুইন , তবে অতিরিক্ত দিয়ে !যা প্রতিটি পুনরাবৃত্তির কোডের শুরুতে একটি অতিরিক্ত 0x01 মুদ্রণ করে।

Answer 6

পরী / জিপি , 35 বাইট

(f=(x)->print1("(f="f")("1x")"))(1)

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

Answer 7

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

s="print's=%r;exec s'%(s+'#')";exec s

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

Answer 8

ব্রেনফাক , 420 বাইট

->+++>>+++>+>++>+++>+>+>+++>>>>>>>>>>>>>>>>>>>>+>+>++>+++>++>>+++>+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>+>+>>+++>>+++>>>>>+++>+>>>>>>>>>++>+++>+++>+>>+++>+++>+>++>>+++>+>+++>+>++>+++>>>+>+>++>+++>+>+>>+++>>>>>>>+>+>>>+>+>++>+++>+++>+>>+++>>>+++>+>++>+++>++>>+>+>++>+++>+>+>>+++>>>>>+++>+>>>>>++>+++>+++>+>>+++>>>+++>+>+++>+>>+++>>+++>>++[[>>+[>]++>++[<]<-]>+[>]<+<+++[<]<+]>>->[>]++++>++[[<++++++++++++++++>-]<+++++++++.<]>.

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

এই "মান" এর উপর একটি পরিবর্তন হয় BrainFuck quine , একটি সঙ্গে .শেষ যে একটি অতিরিক্ত উপর tacks এ .প্রতিটি পুনরাবৃত্তির।

কুইন নিজেই ব্রেনফাক চরিত্রগুলিকে হেক্স অঙ্কের একটি স্ট্যাক হিসাবে এনকোড করে: বিশেষত, হেক্স ডিজিটগুলি c-0x2b, যা সুবিধামত নীচে থাকে:

+: 0x00
-: 0x02
[: 0x30
]: 0x32
<: 0x11
>: 0x13
,: 0x01
.: 0x03

এনকোডিংটি কোডের দুটি স্নিপেটগুলি কভার করে: >++[[>>+[>]++>++[<]<-]>+[>]<+<+++[<]<+]>>->[>]++++>++নিজেই এনকোডিংয়ের এনকোডিংকে ধাক্কা দেয় এবং [[<++++++++++++++++>-]<+++++++++.<]স্ট্যাকটি হাঁটা করে সবকিছু মুদ্রণ করে।

Answer 9

নোংরা , 9 বাইট

'"n[!]a!␛

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

'   start and end a string literal
"   push a literal '
n   remove newlines
[!] print the string
a   push the alphabet
!   print the first character
␛   end the program

যদি সোর্স-কোড পড়ার অনুমতি দেওয়া হয়:

নোংরা , 8 বাইট

Q[!]W33!

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

ব্যাখ্যা:

Q   push the source code
[!] print each character
W   clear the now-empty stack
33! print an exclaimation mark

বৈধ হতে পারে:

নোংরা , 4 বাইট

Q[‼]

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

এটি অনুষ্টিত নতুন লাইনের সাহায্যে উত্স কোডটি মুদ্রণ করে।
(এবং বাগের কারণে একগুচ্ছ স্পেস। এটি তাদের ছাড়াই একইভাবে কাজ করে))

নোট এটি শুধুমাত্র নেটিভ অক্ষরসমষ্ঠিতে কাজ করে, এবং যখন আপনি UTF8 হওয়া ফ্রন্ট-এন্ড ব্যবহার - তাই এটা Tio এ আপনার চরিত্র এটা মধ্যে আউটপুট প্রতিস্থাপন করা প্রয়োজন চেষ্টা []সঙ্গে গুলি ‼, যা কি এটা মুদ্রণের জন্য UTF8 হওয়া সমতূল্য ।

Comments

4-বাইট সংস্করণ অবশ্যই অবৈধ।

— এরিক আউটগলফার

Answer 10

জাভা 8, 162 146 বাইট

v->{String s="v->{String s=%c%s%1$c+1;return s.format(s,34,s).replaceAll(%1$c1+$%1$c,%1$c%1$c);}"+1;return s.format(s,34,s).replaceAll("1+$","");}

এটি অনলাইনে চেষ্টা করুন।
প্রথম আউটপুট প্রোগ্রাম চেষ্টা করুন ; দ্বিতীয় আউটপুট প্রোগ্রাম চেষ্টা করুন ; তৃতীয় আউটপুট প্রোগ্রাম চেষ্টা করুন ।

ব্যাখ্যা:

v->{                       // Method with empty unused parameter and String return-type
  String s="v->{String s=%c%s%1$c+1;return s.format(s,34,s).replaceAll(%1$c1+$%1$c,%1$c%1$c);}"
                           //  The unformatted source code
           +1;             //  Plus a random digit (1 in this case)
  return s.format(s,34,s)  //  Create the quine
          .replaceAll("1+$","");}
                           //  Then remove any trailing 1s

কুইন পার্ট :

• String sঅবিন্যস্ত সোর্স কোড রয়েছে।
• %sএই স্ট্রিংটি নিজের সাথে ইনপুট করতে ব্যবহৃত হয় s.format(...)।
• %c, %1$cএবং 34এগুলি ডাবল-কোট ফর্ম্যাট করতে ব্যবহৃত হয়।
• s.format(s,34,s) সব একসাথে রাখে

চ্যালেঞ্জ অংশ:

• +1 উভয় অপ্রচলিত এবং বিন্যাসিত প্রোগ্রামে 1 যোগ করে।
• .replaceAll("1+$","");}: যেহেতু আমরা কেবলমাত্র দুটিটির পরিবর্তে প্রোগ্রামটিকে বাইট-কাউন্ট বাড়িয়ে তুলতে চাই, আমরা ফিরে আসার আগে যেকোন পিছনের 1 টি সরিয়ে ফেলি।

Answer 11

> <> , 9 বাইট

#o<:}-1:"

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

ক্লাসিক> <> কুইনে পরিবর্তিত হওয়া, যা #সামনের অংশে অনুলিপি করতে আরও একটি ডুপ কমান্ড যুক্ত করে adds

Answer 12

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

$_=q{say"\$_=q{$_
};eval"};eval

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

Answer 13

গল্ফস্ক্রিপ্ট , 9 বাইট

{'.~1'}.~

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

সিজেম , 9 বাইট

{"_~1"}_~

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

আমি এই দুটি সমাধানই একই উত্তরে পোস্ট করছি, যেহেতু তারা একে অপরের ক্ষুদ্রতর ভিন্নতা এবং ঠিক একইভাবে কাজ করে। এগুলি উভয়ই সাধারণ গল্ফস্ক্রিপ্ট কুইন {'.~'}.~(বা {"_~"}_~সিজেমে) এর উপর ভিত্তি করে রয়েছে , যা আরও বিস্তারিতভাবে যেমন খনিটির পূর্ববর্তী উত্তরে বর্ণিত হয়েছে ।

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

Answer 14

সংযুক্তি , 76 72 61 বাইট

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]",Repr[x+sp]]

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

স্ট্যান্ডার্ড কুইন যা xপ্রতিটি পুনরাবৃত্তির পরে শেষে একটি স্থান যুক্ত করে ।

প্রথম কয়েকটি পুনরাবৃত্তি:

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]",Repr[x+sp]]

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]] ",Repr[x+sp]]

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]  ",Repr[x+sp]]

প্রভৃতি

সংযুক্তি, 72 বাইট

y:=1Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

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

এটি কেবল প্রতিটি পুনরাবৃত্তির পরে yসেট করা একটি ভেরিয়েবল সহ স্ট্যান্ডার্ড ফর্ম্যাট কুইনের একটি প্রকরণ10*y

প্রথম কয়েকটি পুনরাবৃত্তি:

y:=1Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

y:=10Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

y:=100Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

প্রভৃতি

Answer 15

সুইফট 4 , 89 বাইট

let(a,b)=(";print(\"let(a,b)=\\((a,b+\"-\"))\"+a)", "");print("let(a,b)=\((a,b+"-"))"+a)

একটি পিছনের নিউলাইন অন্তর্ভুক্ত

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

Answer 16

হাস্কেল , 88 বাইট

main=putStr$snd(span(<'m')s)++show s;s='#':"main=putStr$snd(span(<'m')s)++show s;s='#':"

এটি অনলাইন চেষ্টা করুন! #ডেটা স্ট্রিংকে প্রিপেন্ড করে বাড়ায় ।

Comments

আপনি showকেবল স্ট্রিংয়ের চেয়ে আরও বেশি আইং করে এবং প্যাটার্ন ম্যাচ ব্যবহার করে কিছুটা সাশ্রয় করতে পারেন । এটি অনলাইন চেষ্টা করুন!

— janrjan জোহানসেন

@ Janর্জনজহানসেন ভাল লাগছে! অন্তর্নিহিত স্ট্যান্ডার্ড হাস্কেল কুইন বাদে এটি সম্পূর্ণ আলাদা পদ্ধতির, তাই এটি নিজে পোস্ট করতে নির্দ্বিধায়।

— লাইকনি

ঠিক আছে, আপনি যদি তাই মনে করেন।

— janrjan জোহানসেন

Answer 17

স্ট্যাক্স , 20 18 বাইট

"34s+cTZL"34s+cTZL

এটি চালান এবং এটি ডিবাগ করুন

প্রতিটি পুনরাবৃত্তির দ্বিতীয় উদ্ধৃতি চিহ্নের আগে একটি অতিরিক্ত স্থান তৈরি করে।

ব্যাখ্যা

প্রোগ্রামটি "34s+cTZL "34s+cTZLব্যাখ্যার জন্য ব্যবহার করে ।

"34s+cTZL "34s+cTZL
"34s+cTZL "            String literal
           34s+        Prepend a double quote, Now the string is `"34s+cTZL `
               cT      Copy and trim trailing spaces
                 Z     Put a 0 under the top of stack
                       Stack now (from top to bottom): `["34s+cTZL,0,"34s+cTZL ]`
                  L    Collect all elements on stack, from bottom to top
                       Implicit output, 0 is converted to space.

Answer 18

জেস্টএক্স , 4 বাইট

£↕♣:

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

Answer 19

রুনিক এনেক্যান্টমেন্টস , 6 বাইট

"'<S@>

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

এই এক অদ্ভুত ছিল। আমাকে যা করতে হয়েছিল তা ~হ'ল জো কিং-এর পাওয়া মূল কুইনটি থেকে একটি মুছে ফেলা ।

প্রতিটি অতিরিক্ত রান <শেষ পর্যন্ত অন্যটিকে সংযোজন করে, যেমন:

"'<S@><<<<<<<<<

সব কিছুই কিছুই না।

সম্পর্কিত চ্যালেঞ্জের উপর এই উত্তরের সরাসরি অনুলিপি । ইতিমধ্যে প্রতিটি পুনরাবৃত্তির জন্য 1 বাইট বাড়িয়ে ইতিমধ্যে ঘটেছে (এই চ্যালেঞ্জটির সেই অনুলিপি হওয়ার বিপরীতে দৃ .় যুক্তি বা তার বিপরীতে)।

Answer 20

জেলি , 11 বাইট

“⁾;⁶;ØV” ṘV

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

Answer 21

আশ্চর্য , 33 বাইট

f\ @(-> ol) ["f\ ";f;";f1";#0];f1

স্বাভাবিক কুইনে একটি আকর্ষণীয় বৈকল্পিক যা প্রতিটি পুনরাবৃত্তির পরে 1 যোগ করে।

অগ্রগতি:

f\ @(-> ol) ["f\ ";f;";f1";#0];f1
f\ @(-> ol) ["f\ ";f;";f1";#0];f11
f\ @(-> ol) ["f\ ";f;";f1";#0];f111
...

ব্যাখ্যা

f\ @                               #. Sets f to a function that does the following:
    (-> ol) [                      #.   Output each:
             "f\ ";                #.     String for declaration of f
                   f;              #.     Formatted representation of f's function
                     ";f1";        #.     String for call of f
                           #0      #.     Argument passed into f
                             ];f1  #. Call f with 1 as the argument

এই কুইনের একটি আকর্ষণীয় অংশ হ'ল ওয়ান্ডার নির্বিচারে নির্ভুলতার সাথে কাজ করতে পারে, তাই নির্দিষ্ট পরিমাণের পরে অগ্রগতি ভাঙবে না।

Answer 22

কোল্ডফিউশন, 277 বাইট

<cfset u=Chr(34)><cfset q="<cfset u=Chr(34)><cfset q=%s%s%s><cfoutput>%screateObject(%sjava%s,%sjava.lang.String%s).format(q,[u,q,u,Chr(35),u,u,u,u,Chr(35)])%s</cfoutput>
"><cfoutput>#createObject("java","java.lang.String").format(q,[u,q,u,Chr(35),u,u,u,u,Chr(35)])#</cfoutput>

এটি আমার কোল্ডফিউশন কুইনের একটি তুচ্ছ পরিবর্তন যা প্রতিটি অতিরিক্ত সময় যখন বলা হয় তখন একটি নতুন লাইন যুক্ত করে।

লুসি-এক্সপ্রেস -5.2.6.60 এ স্থানীয়ভাবে পরীক্ষিত

Answer 23

উইন্ডোজ ব্যাচ, 38 36 বাইট

echo|set/p"=q">q&copy/b/y %0+q %0
::

এই কোডটি "q" নামক একটি ফাইল তৈরি করে, যেখানে 'q' বর্ণটি রয়েছে এবং তারপরে এটি মূল ফাইলটিতে সংযোজন করে। মনে রাখবেন যে "::" "রিম" এর জন্য একটি উপনাম যা অতিরিক্ত স্থানের প্রয়োজন হয় না।

ব্যবহারকারী 3493001 ধন্যবাদ 2 বাইট সংরক্ষণ করা।

Answer 24

গোল> <> , 7 বাইট

":r2ssH

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

এটি নিয়মিত গোল> <> কুইনের একটি সহজ প্রকরণ তবে Hএটি প্রতিবার সঞ্চালনের একটি অনুলিপি যুক্ত করে । যেহেতু Hকমান্ড প্রোগ্রামটি থামিয়ে দেয়, Hশেষে অতিরিক্ত আচরণটি পরিবর্তন করে না।

Answer 25

টি-এসকিউএল , 175 বাইট

DECLARE @ VARCHAR(MAX)='DECLARE @ VARCHAR(MAX)=*SET @=TRIM(REPLACE(@,0x2a,CHAR(39)+@+CHAR(32)+CHAR(39)))PRINT @'SET @=TRIM(REPLACE(@,0x2a,CHAR(39)+@+CHAR(32)+CHAR(39)))PRINT @

প্রথমে আমি একটি এসকিউএল কুইন লিখেছিলাম, তারপরে আমি এটিকে অতিরিক্ত স্থান যুক্ত করার জন্য এটি সংশোধন করেছি (কিছুটা এই উত্তর দ্বারা অনুপ্রাণিত )।

Answer 26

বেফুঞ্জ -98 (পাইফুঞ্জ) , 22 19 বাইট

r:#,_ #;'D2/'<,,@;"

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

প্রতিটি প্রজন্মের <শেষের আগে "যুক্ত করে।

Answer 27

সি # (ভিজ্যুয়াল সি # ইন্টারেক্টিভ সংকলক) , 89 বাইট

var s="var s={0}{1}{0}+8;Write(s.Trim('8'),(char)34,s);"+8;Write(s.Trim('8'),(char)34,s);

কেভিন ক্রুইজসেন এর উত্তর দ্বারা অনুপ্রাণিত।

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