कवि की रानी


13

से 1 या अधिक कविता योजना के साथ एक Quine लिखें http://en.wikipedia.org/wiki/Rhyme_scheme जब पढ़ें। निम्नलिखित अक्षर जोर से बोले जाते हैं:

  • कोई अल्फ़ान्यूमेरिक शब्द या वर्ण टिप्पणी में नहीं;
  • तुलना और अंकगणितीय वर्ण (+ प्लस; - माइनस; * समय; / से विभाजित; या;, या; और, & &, &;, नहीं; = बराबर, == बराबर, === बराबर)।

निम्नलिखित के लिए जिम्मेदार नहीं है (जोर से नहीं बोला गया है):

  • कोई भी चरित्र जो स्ट्रिंग शाब्दिक की शुरुआत या अंत को दर्शाता है ("');
  • कोई भी वर्ण जो तार्किक ब्लॉकों की शुरुआत या अंत का संकेत देता है (({{} []);
  • कोई भी वर्ण जो किसी चर, फ़ंक्शन या कोड की लाइन (;) के परिसीमन को दर्शाता है।
  • टिप्पणियों में किसी भी चरित्र;

"बोले गए जोर से" नियम हमेशा लागू होते हैं। "बोले गए जोर से नहीं" नियम सभी भाषाओं पर लागू होते हैं, ब्रेनफक, के, जे, एपीएल, बीफुंज और स्किलिंग के अलावा। एपीएल, ब्रेनफक, बेगुंजे, के और जे के मामले में, "बोले गए ज़ोरदार नियमों" में वर्णित किसी भी चरित्र को ऊपर उल्लिखित "लगातार" नियम चुनने के अधीन नहीं है। वर्णों का उच्चारण इस तरह किया जाता है जैसे वे उस चीनी चरित्र के होते हैं, जिसके मुक्त विकल्प के साथ आप किस उच्चारण का उपयोग करते हैं।

कोई भी वर्ण जिन्हें स्पष्ट रूप से अनुमति या खंडन नहीं किया जाता है, उन्हें स्पष्ट या मौन रखा जाता है। हालांकि, एक विशिष्ट चरित्र या तो हमेशा स्पष्ट होता है या हमेशा चुप रहता है। आप एक लाइन में # हैशटैग के रूप में उच्चारण नहीं कर सकते हैं और अगले में # चुप रहते हैं।

किसी भी बोली या भाषा में शब्दों का उच्चारण किया जा सकता है, लेकिन इसे उसी श्लोक (किसी स्कॉटिश तरीके से पहला शब्द और दूसरे में वेल्श तरीके से उच्चारण किया जाना चाहिए) के अनुरूप होना चाहिए।

प्रतियोगिता प्रकार लोकप्रियता प्रतियोगिता है। सबसे प्रसिद्ध वार्डों में से एक विलियम शेक्सपियर के सम्मान में 23 अप्रैल को समय सीमा तय की गई थी, जो उस दिन पैदा हुआ था और कथित तौर पर मृत्यु हो गई थी। विजेता वह है जिसे सबसे अधिक वोट मिले।

संपादित करें: क्योंकि मुझे नहीं लगता कि कोई और सबमिशन होगा, मैंने प्रतियोगिता जल्द खत्म करने का फैसला किया है। मैं विजेता को क्षण भर में चिह्नित करूंगा।


2
+1, अच्छी तरह से तैयार किया गया। मुझे पसंद है कि आपने एक विशेष मामले के रूप में स्किलिंग को कैसे बुलाया।
काया

जवाबों:


9

बैच AABBA (लिमरिक)

यह मेरी सबसे अच्छी कोशिश है, लेकिन मैं कभी भी कविताओं में अच्छा नहीं रहा।

कोड:

@Echo off || cd \.
If "this"=="a largeish" pot
Type %0 || chef
Color 7f
Goto :eof || shallot

अंग्रेजी में:

इको ऑफ सीडी सीडी स्लैश डॉट
अगर यह एक लोटिश पॉट के बराबर है तो
शून्य और शेफ का
रंग सात एफ ईओएफ पर
जाएं


1

फोरट्रान 95 (मैकरॉन कपल)

मेकार्रोन दोहे: "AABBABCCDDCDEEFFEF" अकादमिक जेम्स मैककारॉन द्वारा पेश किए गए एक क्लासिक राइमिंग पैटर्न पर एक समकालीन ले।

मेरा कोड (जो all.f95काम करने के लिए इसे सहेजा जाना चाहिए ):

character (LEN=100) :: &
bend; logical :: wondered
inquire(file="superstar &
&car",exist=wondered,number=i_r)

open(unit=100, &
file="superstar car")
if (.NOT.(.NOT.(wondered))) then
i_sum = 1; read(100,*) n

i_sum = n + i_sum
rewind(100); else; i_sum = 1
endif; write(100,*) i_sum, 10
codingThis = fun

write(bend,"(I5)") n; call &
SYSTEM ("copy all.f95 all"//&
TRIM(TRIM(ADJUSTL(bend)))//&

".f95"); open(access="append", &
unit=10,file="waterfall")
write(10,*) "foo bar"; end

यह खुद को गिने हुए फ़ाइलों में कॉपी करेगा all0.f95, फिर all1.f95, इसके साथ शुरू all2.f95, और इसी तरह ...

यह पढ़ता है:

character len equals hundred
bend logical wondered
inquire file superstar
car exist wondered, number equals IR

open unit equals hundred
file equals superstar car
if not not wondered then
I sum equals one, read hundred N

I sum equals N plus I sum
rewind hundred else I sum equals one
endif write hundred I sum ten
conding this equals fun

write bend I five N call
system copy all F point ninety five all
trim trim adjust L bend

point ninety five access append
open unit ten file waterfall
write ten foo bar end
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.