क्विनिंग, लेकिन विंडोज फाइलों के साथ!

Question

एक क्वीन लिखें, जो जब चलती है, तो वर्तमान निर्देशिका में खुद के नाम की एक स्रोत फ़ाइल में बनाती है। हम इसमें Windows का उपयोग कर रहे हैं, इसलिए फ़ाइल नाम (और इसलिए quine) की निम्न सीमाएँ होनी चाहिए:

• इन पात्रों में से कोई भी नहीं \ / : ? * < > |
• 211 255 वर्णों से कम

सीमाएँ और धारणाएँ

• आपका कोड एक पूर्ण प्रोग्राम होना चाहिए (यह सभी के बाद चलाया जाएगा)।

• स्रोत फ़ाइल से कोई प्रतिलिपि नहीं।

• आप यह मान सकते हैं कि आपके नाम के साथ आपके नाम के रूप में एक और फ़ाइल नहीं है (जैसा कि यह क्वीन (1) का उत्पादन करेगा )।

• त्रुटियों की अनुमति है (जब तक वे स्रोत कोड में नहीं आते हैं

ये है कोड गोल्फ, बाइट्स जीत में सबसे छोटा कोड!

संपादित करें

शायद मैं स्पष्ट नहीं था, क्वीन के नाम वाली फाइल में वास्तव में क्वीन होता है। मेरी गलती।

Comments

कार्यक्रम में गैर-एएससीआईआई पात्रों की सीमाएं क्या हैं? (विंडोज़ पर, यह संभवतः विंडोज के किस भाषा संस्करण पर निर्भर करता है, मैं सटीक नियमों को भूल सकता हूं और चाहे वे समय के साथ बदल गए हों।)

211 बाइट्स से कम क्यों? यह एक मनमाना प्रतिबंध है ...

— mbomb007

@ mbomb007 अधिकतम फ़ाइल नाम आकार, मेरा मानना ​​है।

— एडिसन क्रम्प

@VoteToClose यह 255 है। stackoverflow.com/a/265782/2415524

— mbomb007

@ mbomb007 टाइपो, शायद?

— एडिसन क्रम्प

Answer 1

विटी, 10 27 बाइट्स

'rddd++&"rdd8++a[v}v1-D);].

यदि :अनुमति दी गई थी, तो मैं इसे 11 बाइट्स तक छोटा कर सकता था। :(

स्पष्टीकरण:

'rddd++&"rdd8++a[v}v1-D);].
'                           Capture all instructions as a string until encountering
                              ' again, looping if necessary.
 r                          Reverse the current stack (output is top-down).
  ddd++                     Push char literal ' to the stack.
       &                    Push a new stack to the stack stack.
        "                   Same as ', but " specific.
         r                  Reverse the current stack.
          dd8++             Push char literal " to the stack.
               a            Push 10 to the stack.
                [        ]  Loop forever.
                 v          Capture the top value as a variable.
                  }         Take the bottom item of the stack and put it on the top.
                   v        Dump the variable to the stack.
                    1-      Subtract 1.
                      D     Duplicate the top item.
                       );   Pop n; if n is 0, exit the loop.
               a[v v1-D);]  This is a makeshift for loop with 10 iterations.
                          . Pop the top stack as n, and the second stack as o. 
                              Write a file called "n" with the contents of "o".

दो स्टैक अंत में समान होंगे। कुछ जावा संस्करणों पर, यह कक्षा के FileNotFoundExceptionअलग-अलग कार्यान्वयन के कारण फेंक सकता है FileInputStream।

संपादित करने से पहले पिछला जवाब:

&'rddd++}.

स्पष्टीकरण:

&           Push a new stack to the stack stack.
 'rddd++    Modified standard quine.
        }   Move the ' to the right place.
         .  Pop the top stack as n, and the second stack as o. Write a file called
                 "n" with the contents of "o". (Quine name, no content)

क्योंकि मैं भी कर सकता हूं, यहां स्टैक्स के भीतर आने वाले चरणों का एक आरेख है (प्रत्येक स्टैक को दर्शाया गया है []):

Initial state: [[]]

&              [[], []]
                  Push a new stack to the stack stack.

 '             [[], ["r", "d", "d", "d", "+", "+", "}", ".", "&"]]
                  This stack state occurs because ' will loop around the line
                    until finding the next '.

  r            [[], ["&", ".", "}", "+", "+", "d", "d", "d", "r"]]
                  Reverses the top (last) stack.

   ddd         [[], ["&", ".", "}", "+", "+", "d", "d", "d", "r", 13, 13, 13]
                  Push thirteen thrice.

      ++       [[], ["&", ".", "}", "+", "+", "d", "d", "d", "r", "'"]
                  Because char ' is 39 = 13 + 13 + 13.

        }      [[], [".", "}", "+", "+", "d", "d", "d", "r", "'", "&"]]
                  Takes the bottom item, then puts it on the top.

         .     []
                  Writes a file with content from the second-to-top stack and the
                    name as the concatenation of all elements in the top stack,
                    with top member priority (backwards from my representation).

मुझे वास्तव में यकीन नहीं है कि यह सही कैसे काम करता है; मिनट परिवर्तन के कारण यह टूट जाता है। उदाहरण के लिए, &विभिन्न अन्य स्थानों पर रखने के साथ ही साथ काम करना चाहिए, लेकिन यह ClassCastExceptionएस, IOExceptionएस और ArrayOutOfBoundsExceptionएस का कारण बनता है जहां आप इसे डालते हैं। मुझे कुछ बगफिक्सिंग करने की आवश्यकता हो सकती है।

Comments

+1 के लिएPush a new stack to the stack stack.

— पावेल

+1 यदि आप एक नई स्टैक स्टैक को स्टैक स्टैक स्टैक पर धक्का दे सकते हैं, तो इसे भूल जाएं! ... किडिंग +1, मुझे हंसी भी आई।

— मैजिक ऑक्टोपस Urn

@carusocomputing क्या होगा अगर मैंने तुमसे कहा था कि मैं कर सकता हूँ o? ;)

— एडिसन क्रम्प

Sigh unzip ...

— मैजिक ऑक्टोपस Urn

उम्म ... मुझे लगता है कि जेनरेट की गई फाइल में कोड होना चाहिए (यानी इसका कंटेंट इसके फाइलनाम के बराबर होना चाहिए)

— Leo

Answer 2

नोड.जेएस, 56 52 बाइट्स

function f(){require('fs').writeFile(f+='f()',f)}f()

यह चेतावनी प्रिंट करता है

DeprecationWarning: कॉलबैक के बिना एक एसिंक्रोनस फ़ंक्शन को कॉल करना पदावनत है।

यदि आप ऑल-ग्रीन चाहते हैं, तो इसे बदलने के writeFileलिए 4 बाइट का खर्च आता है writeFileSync।

Answer 3

लुआ, 96 बाइट्स।

s="s=%qs=string.format(s,s)f=io.open(s)f.write(f,s)"s=string.format(s,s)f=io.open(s)f.write(f,s)

मेरे फोन पर यह टाइप किया गया है, काम करना चाहिए, लेकिन जब मैं कंप्यूटर पर ले जाऊंगा तो मैं इसका परीक्षण करूंगा।

Comments

मुझे लगता है कि कम से कम आप परिवर्तन करने की आवश्यकता होगी sting.formatकरने के लिए string.formatदो बार।

— पीटर टेलर

@PeterTaylor आपको स्टिंग पसंद नहीं है, क्या आप?

— KeyWeeUsr

@KeyWeeUsr, मेरे पास व्यक्तिगत रूप से उनके खिलाफ कुछ भी नहीं है, और वास्तव में उन्होंने मेरी परवरिश के लिए भुगतान करने में मदद की, लेकिन मुझे लगता है कि लूआ मानक पुस्तकालय संभवतः पुलिस प्रशंसकों के बजाय समान एपीआई से परिचित लोगों द्वारा सामान्य प्रयोज्य के लिए डिज़ाइन किया गया था।

— पीटर टेलर

Answer 4

सी, 134 बाइट्स

s[255];fd;char p[255]="s[255];fd;char p[255]=%c%s%c;main(){sprintf(s,p,34,p,34);creat(s,0);}";main(){sprintf(s,p,34,p,34);creat(s,0);}

Comments

यहाँ स्रोत में *ऐसा लगता है जैसे यह नियमों के अनुसार अनुमति नहीं है।

— मूल्य स्याही

@ValueInk फिक्स्ड। यह बात बताने के लिए धन्यवाद!

— एमडी एक्सएफ