Tulis quine dengan 1 atau lebih skema sajak dari http://en.wikipedia.org/wiki/Rhyme_scheme ketika membaca. Karakter berikut diucapkan dengan keras:

• kata atau karakter alfanumerik apa pun yang tidak ada dalam komentar;
• karakter perbandingan dan aritmatika (+ plus; - minus; * kali, / dibagi dengan, | atau, || atau, & dan, && dan,! bukan, = sama dengan, == sama dengan, === sama dengan).

Berikut ini tidak diperhitungkan (tidak diucapkan dengan keras):

• setiap karakter yang menandakan awal atau akhir string literal ("');
• setiap karakter yang menandakan awal atau akhir dari blok logis (() {} []);
• setiap karakter yang menandakan penggambaran variabel, fungsi, atau baris kode (.,;).
• setiap karakter dalam komentar;

Aturan "diucapkan dengan keras" selalu berlaku. aturan "tidak diucapkan dengan keras" berlaku untuk semua bahasa, kecuali Brainfuck, K, J, APL, Befunge, dan Sclipting. Dalam kasus APL, Brainfuck, Befunge, K dan J, karakter apa pun yang tidak disebutkan dalam "aturan yang diucapkan dengan suara keras" tunduk pada aturan "pilih secara konsisten" yang diuraikan di atas. Karakter sclipting diucapkan seperti apa jadinya jika mereka adalah karakter China, dengan pilihan bebas pelafalan yang Anda gunakan.

Setiap karakter yang tidak diizinkan atau ditolak pengucapannya bebas untuk diucapkan atau dibungkam. Namun, karakter tertentu selalu diucapkan atau selalu diam. Anda tidak boleh mengucapkan # sebagai tagar dalam satu baris dan menyimpan # senyap di baris berikutnya.

Kata-kata dapat diucapkan dalam dialek atau bahasa apa pun, tetapi harus konsisten dalam bait yang sama (tidak ada kata pertama diucapkan dengan cara Skotlandia dan yang kedua dengan cara Welsh).

Jenis kontes adalah kontes popularitas. Batas waktu adalah 23 April untuk menghormati salah satu bard paling terkenal, William Shakespeare, yang lahir dan diduga meninggal pada hari itu. Pemenang adalah dia yang mendapat suara terbanyak.

Sunting: karena saya tidak berpikir akan ada pengiriman lagi, saya telah memutuskan untuk mengakhiri kontes lebih awal. Saya akan menandai pemenang sebentar.

Batch AABBA (Limerick)

Ini adalah upaya terbaik saya, tetapi saya tidak pernah pandai puisi.

Kode:

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

Dalam Bahasa Inggris:

Gabungkan lagi CD slash dot
Jika ini sama dengan pot yang lebih besar
Ketikkan nol lagi chef
Warna tujuh f
Pergi ke EOF lain bawang merah

Fortran 95 (McCarron Couplet)

McCarron Couplet: "AABBABCCDDCDEEFFEF" adalah pola kontemporer yang berima klasik, diperkenalkan oleh akademisi James McCarron.

Kode saya (yang harus disimpan all.f95agar berfungsi):

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

Ini akan menyalin dirinya ke file nomor, dimulai dengan all0.f95, kemudian all1.f95, all2.f95dan seterusnya ...

Bunyinya:

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