Escreva um quine com 1 ou mais esquemas de rima em http://en.wikipedia.org/wiki/Rhyme_scheme quando lido. Os seguintes caracteres são falados em voz alta:

• quaisquer palavras alfanuméricas ou caracteres que não estejam em um comentário;
• caracteres de comparação e aritméticos (+ mais; - menos; * vezes, / dividido por, | ou, || ou, & e, && e,! not, = iguais, == iguais, === iguais).

O seguinte não é explicado (não é falado em voz alta):

• qualquer caractere que signifique o início ou o fim dos literais de string ("');
• quaisquer caracteres que significam o início ou o fim dos blocos lógicos (() {} []);
• Quaisquer caracteres que representem o delineamento de uma variável, função ou linha de código (.,;).
• quaisquer caracteres nos comentários;

As regras "faladas em voz alta" sempre se aplicam. as regras "não faladas em voz alta" se aplicam a todos os idiomas, exceto Brainfuck, K, J, APL, Befunge e Sclipting. No caso de APL, Brainfuck, Befunge, K e J, qualquer caractere não mencionado em "regras faladas em voz alta" está sujeito à regra "escolha consistentemente" descrita acima. Caracteres sclipting são pronunciados como seriam se fossem esse caractere chinês, com livre escolha de qual pronunciação você usa.

Quaisquer caracteres que não tenham permissão ou negação explícita explicitamente podem ser pronunciados ou mantidos em silêncio. No entanto, um caractere específico é sempre pronunciado ou sempre mantido em silêncio. Você não pode pronunciar # como hashtag em uma linha e manter # silencioso na próxima.

As palavras podem ser pronunciadas em qualquer dialeto ou idioma, mas precisam ser consistentes dentro da mesma estrofe (sem que a primeira palavra seja pronunciada de maneira escocesa e a segunda de maneira galesa).

O tipo de concurso é um concurso de popularidade. O prazo é 23 de abril em homenagem a um dos bardos mais conhecidos, William Shakespeare, que nasceu e supostamente morreu naquele dia. O vencedor é aquele que obtém mais votos.

Edit: porque acho que não haverá mais envios, decidi encerrar o concurso mais cedo. Marcarei o vencedor momentaneamente.

Lote AABBA (Limerick)

Esta é a minha melhor tentativa, mas nunca fui bom em poemas.

Código:

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

Em inglês:

Eco off else
Barra de CD Se isso for igual a um pote grande
Tipo zero chef de outras
cores Cor sete f
Vá para EOF else chalota

Fortran 95 (McCarron Couplet)

McCarron Couplet: "AABBABCCDDCDEEFFEF", uma abordagem contemporânea sobre um padrão de rima clássico, apresentado pelo acadêmico James McCarron.

Meu código (que deve ser salvo all.f95para que funcione):

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

Ele vai se copiar para arquivos numerados, começando com all0.f95, então all1.f95, all2.f95e assim por diante ...

Diz:

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