সিগন্যাল-বিঘ্নিত কুইন্স

Question

কুইনিংয়ের একটি দীর্ঘ ইতিহাস রয়েছে - আপনি যদি এটি না শুনে থাকেন তবে ট্যাগটি ক্লিক করুন এবং এটিতে কিছুটা পড়ুন।

তোমার কাজ

অসীম একটি সিরিজ আউটপুট করুন 1(অন্য কোনও ফাঁকা জায়গা ছাড়াই [নিউলাইনস, স্পেসস, ইত্যাদি।]) UNTIL সাইন ইন (সাধারণত CTRL-C) বলা হয়। যখন এটি বলা হয়, প্রোগ্রাম উত্স আউটপুট।

বিধি

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

Comments

"ভাষা": ট্রুথ মেশিন উত্স:1

— n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳

@ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳ আসলে এটি দুর্দান্ত। আমি এটি গ্রহণ করেছি কিনা তা নিশ্চিত নই, কারণ এটি উত্সটি আউটপুট দেয় না, এটি উত্সটি প্রকাশ করা বন্ধ করে দেয়।

— অ্যাডিসন ক্রম্প

আপনি কীভাবে জানবেন যে শেষ চরিত্রটি প্রোগ্রামটির উত্স আউটপুট দেয় না? : পি (এটি যাইহোক, একটি

— রসিক

¯ \ _ (ツ) _ / ¯ এপিআই, সম্ভবত?

— অ্যাডিসন ক্র্যাম্প

Answer 1

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

s="while 1:\n try:print(end='1')\n except:-print('s=%r;exec(s)'%s)";exec(s)

নোট করুন যে বাইট গণনাটিতে একটি পেছনের নতুন লাইন রয়েছে। এটি -printশত্রুতা পরে ত্রুটি আউট ব্যবহার করে।

Answer 2

পাইথ, 25 বাইট

.xf!p1)jN*2]".xf!p1)jN*2]

চেষ্টা ব্যতীত ফাংশন যুক্ত করতে মানক পাইথ কুইনের একটি পরিবর্তন ification

Comments

এর জন্য # কাজ ব্যবহার করবেন? এটি 2 বাইট সংরক্ষণ করতে হবে।

— মাইক বুফার্দেসি

@ মাইকবুফার্দেছি আমি চেষ্টা করেছিলাম, কিন্তু কাজে লাগতে পারিনি। নিজেই শট দিন।

— isaacg

Answer 3

অটোআইটি , 488 429 362 বাইট

আমার মস্তিষ্ক ব্যাথা করছে, এটি খুব মেটা।

$1=BinaryToString
$2=Chr(34)
$s="FileWrite('a','#include<Misc.au3>'&@LF&'Do'&@LF&'ToolTip(1)'&@LF&'Until _IsPressed(Chr(49)&Chr(66))')+RunWait(@AutoItExe&' a')"
Execute($s)
$x="$1=BinaryToString\n$2=Chr(34)\n%sExecute($s)\n$x=%s\nClipPut(StringFormat($x,$1(0x223D7324)&$s&$1(0x0A0D22),$2&$x&$2))"
ClipPut(StringFormat($x,$1(0x223D7324)&$s&$1(0x0A0D22),$2&$x&$2))

এটি চাইল্ড-প্রসেসকে যেভাবে সংকলন করে তাতে বেশ আকর্ষণীয় হয় যার ফলস্বরূপ ESC চাপ না দেওয়া পর্যন্ত সরঞ্জামটিপ এপিআইতে 1 আউটপুট প্রদান করে। যদি ESC টিপানো হয়, তবে শিশু প্রক্রিয়াটি নিজেকে মেরে ফেলে এবং পিতামাতার (এই কুইন) পুনরায় কার্যকর করা শুরু করে এবং ক্লিপবোর্ডের উত্সটিকে ডাম্প করে । এটি আপনাকে সম্পাদক থেকে চালাতে হবে।

_{বিটিডাব্লু: এটি আপনার ডিস্কে একটি সহায়ক ফাইল 'এ' তৈরি করে।}

Comments

সহায়ক ফাইল! \ o /

— অ্যাডিসন ক্রম্প

Answer 4

সি, 239 221 206 172 বাইট

অবশ্যই অনেক খাটো হতে পারে তবে শেষ পর্যন্ত আমাকে পিপিসিজিতে কিছু পোস্ট করতে হয়েছিল ।

*s="*s=%c%s%c,r;h(s){r=1;}main(){signal(2,h);while(!r)printf(%c1%c);printf(s,34,s,34,34,34);}",r;h(s){r=1;}main(){signal(2,h);while(!r)printf("1");printf(s,34,s,34,34,34);}

জিসিসি 5.2.1 (বিভিন্ন সতর্কতা সহ) সহ সংকলিত।

Answer 5

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

import Control.Exception;main=catch(putStr o)e;o='1':o;e::SomeException->IO();e _=putStr(s++show s);s="import Control.Exception;main=catch(putStr o)e;o='1':o;e::SomeException->IO();e _=putStr(s++show s);s="

Answer 6

সি #, 339 বাইট

using d=System.Console;class c{static bool k=1>0;static void Main(){d.CancelKeyPress+=delegate{k=1<0;var s="using d=System.Console;class c{{static bool k=1>0;static void Main(){{d.CancelKeyPress+=delegate{{k=1<0;var s={0}{1}{0};d.WriteLine(s,(char)34,s);}};while(k){{d.Write(1);}}}}}}";d.WriteLine(s,(char)34,s);};while(k){d.Write(1);}}}

Comments

চমৎকার ট্রিক - ধন্যবাদ @ লিজিয়নম্যামাল978

— স্টিফান

এছাড়াও, delegateসঙ্গে প্রতিস্থাপন করা যেতে পারে ()=>। kস্থানীয় পরিবর্তনশীল কেন নয় ?

— LegionMammal978

Answer 7

পার্ল 5.10+, 64 বাইট

perl -E '$_=q{$SIG{INT}=sub{say"\$_=q{$_};eval";die};{print 1;redo}};eval'

পার্ল 5.10+ জন্য প্রয়োজন say, যা দিয়ে পারেন সক্ষম করা যাবে -M5.010বা -E।

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

এটি নিম্নলিখিত কুইনের আরও একটি প্রকরণ, যা আমি প্রতিটি কুইন চ্যালেঞ্জের জন্য ব্যবহার করি বলে মনে করি:

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

ভেঙ্গে পড়া:

perl -E '
    $_=q{                        # store contents of quine in $_
        $SIG{INT}=sub{           # install handler for SIGINT
            say"\$_=q{$_};eval"; # print quine
            die                  # break out of eval
        };
        {
            print 1;             # print "1"
            redo                 # restart block
        }
    };
    eval                         # eval $_, executing its contents as code
'

Comments

ওফস, প্রাথমিকভাবে 1নিউলাইন দ্বারা পৃথক করে মুদ্রণ করছিল । 2 বাইট ব্যয়ে স্থির

— এইসুইটস ব্ল্যাকনট