Scrivi un quine con 1 o più schemi di rima da http://en.wikipedia.org/wiki/Rhyme_scheme quando letto. I seguenti personaggi sono parlati ad alta voce:

• eventuali parole alfanumeriche o caratteri non presenti in un commento;
• confronto e caratteri aritmetici (+ più; - meno; * volte, / diviso per, | o, || o, & e, && e,! not, = uguale, == uguale, === uguale).

Non viene tenuto conto di quanto segue (non viene pronunciato ad alta voce):

• tutti i caratteri che indicano l'inizio o la fine dei letterali di stringa ("');
• tutti i caratteri che indicano l'inizio o la fine dei blocchi logici (() {} []);
• qualsiasi carattere che significhi la delimitazione di una variabile, funzione o riga di codice (.,;).
• eventuali caratteri nei commenti;

Si applicano sempre le regole "parlate ad alta voce". le regole "non parlate ad alta voce" si applicano a tutte le lingue, tranne Brainfuck, K, J, APL, Befunge e Sclipting. Nel caso di APL, Brainfuck, Befunge, K e J, qualsiasi personaggio non menzionato nelle "regole parlate ad alta voce" è soggetto alla regola "scegli coerentemente" descritta sopra. I personaggi che fanno lo slittamento sono pronunciati come se fossero quei caratteri cinesi, con la libera scelta della pronuncia che usi.

Qualsiasi personaggio che non sia esplicitamente autorizzato o negato la pronuncia è libero di essere pronunciato o taciuto. Tuttavia, un personaggio specifico è sempre pronunciato o sempre zitto. Non puoi pronunciare # come hashtag in una riga e mantenere # silenzioso nella successiva.

Le parole possono essere pronunciate in qualsiasi dialetto o lingua, ma devono essere coerenti all'interno della stessa strofa (non è necessario pronunciare la prima parola in modo scozzese e la seconda in modo gallese).

Il tipo di concorso è concorso di popolarità. La scadenza è il 23 aprile in onore di uno dei più noti bardi, William Shakespeare, nato e presumibilmente morto quel giorno. Il vincitore è colui che ottiene il maggior numero di voti.

Modifica: poiché non credo che ci saranno altri invii, ho deciso di terminare il concorso in anticipo. Segnerò il vincitore per un momento.

Lotto AABBA (Limerick)

Questo è il mio miglior tentativo, ma non sono mai stato bravo con le poesie.

Codice:

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

In inglese:

Echo off else CD slash dot
Se questo equivale a una pentola di grandi dimensioni
Tipo zero altro chef
Colore sette f
Vai a EOF altro scalogno

Fortran 95 (McCarron Couplet)

McCarron Couplet: "AABBABCCDDCDEEFFEF" una versione contemporanea di un classico motivo in rima, introdotto dall'accademico James McCarron.

Il mio codice (che dovrebbe essere salvato come all.f95per farlo funzionare):

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

Si copierà i file numerati, a cominciare all0.f95, allora all1.f95, all2.f95e così via ...

Si legge:

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