गायब क्विन्स: विजुअल बेसिक (अनुप्रयोगों के लिए)

Question

आज मैंने बेकार ज्ञान की अपनी दैनिक खुराक पाने के लिए विकिपीडिया पर कुछ यादृच्छिक गीक-सामान लेख सर्फ किए। मैं quines भर में ठोकर खाई, जो प्रोग्राम हैं जो अपने स्वयं के स्रोत कोड मुद्रित करते हैं। मैंने पाया कि मेरे मस्तिष्क को चोट पहुंचाने का एक शानदार तरीका है, इसलिए मैंने वीबीए में एक क्विन पर काम करना शुरू कर दिया। मैं दो अच्छे कारणों के लिए किया था:

1. मैं एक Quine VBA में लिखा
2. VBA अजीब कोड है जो आपके दिमाग को चोट

यहाँ बनाता है लिखने के लिए प्रोत्साहित नहीं पा सके मेरी कृति है:

Sub q() 
c = "Sub q();c = #;Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34));End Sub" 
Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34)) 
End Sub 

मेरी चुनौती: क्या आप इसे छोटा (और अधिमानतः अधिक अजीब) बना सकते हैं?

Answer 1

मैं अगर किसी को भी das_weezul की Quine के आधार पर इस सूत्र anomore पढ़ता है, लेकिन यहाँ एक भी कम से एक है, पता नहीं है। यह "विकल्प स्पष्ट" (दास_वेज़ुल के विपरीत) से स्वतंत्र है और यह उस कार्यालय ऐप से स्वतंत्र है जिसमें आप काम कर रहे हैं (यानी एक्सेल, एक्सेस, वर्ड इत्यादि) - एलेक्स के के विपरीत। लंबाई के लिए) 2, -1 अच्छा पठनीयता के लिए;

c="c=#:?replace(c,chr(35),chr(34) &c &chr(34))":?replace(c,chr(35),chr(34) &c &chr(34)) 

Answer 2

कैसे

के बारे में

Sub q() '//in mdl1 
Debug.Print Workbooks(1).VBProject.VBComponents(5).CodeModule.Lines(1, 3) 
End Sub