La quine del poeta

13

Escriba un quine con 1 o más esquemas de rima de http://en.wikipedia.org/wiki/Rhyme_scheme cuando lo lea. Los siguientes caracteres se hablan en voz alta:

  • cualquier palabra alfanumérica o caracteres que no estén en un comentario;
  • caracteres de comparación y aritméticos (+ más; - menos; * veces, / dividido por, | o, || o, & y, && y,! no, = igual, == igual, === igual).

Lo siguiente no se tiene en cuenta (no se dice en voz alta):

  • los caracteres que significan el comienzo o el final de los literales de cadena ("');
  • cualquier carácter que signifique el comienzo o el final de bloques lógicos (() {} []);
  • cualquier carácter que signifique la delineación de una variable, función o línea de código (.,;).
  • cualquier personaje en los comentarios;

Las reglas de "hablado en voz alta" siempre se aplican. Las reglas de "no hablado en voz alta" se aplican a todos los idiomas, excepto Brainfuck, K, J, APL, Befunge y Sclipting. En el caso de APL, Brainfuck, Befunge, K y J, cualquier personaje que no se mencione en "reglas habladas en voz alta" está sujeto a la regla de "elegir consistentemente" descrita anteriormente. Los caracteres deslizantes se pronuncian como lo serían si fueran ese carácter chino, con libre elección de la pronunciación que utilice.

Los caracteres que no se permiten o niegan explícitamente la pronunciación pueden pronunciarse o mantenerse en silencio. Sin embargo, un carácter específico siempre se pronuncia o siempre se mantiene en silencio. No puede pronunciar # como hashtag en una línea y mantener # silencioso en la siguiente.

Las palabras se pueden pronunciar en cualquier dialecto o idioma, pero deben ser consistentes dentro de la misma estrofa (sin que la primera palabra se pronuncie de manera escocesa y la segunda de manera galesa).

El tipo de concurso es el concurso de popularidad. La fecha límite es el 23 de abril en honor a uno de los bardos más conocidos, William Shakespeare, quien nació y presuntamente murió ese día. El ganador es el que obtiene más votos.

Editar: como no creo que haya más presentaciones, he decidido finalizar el concurso antes de tiempo. Marcaré al ganador momentáneamente.

Nzall
fuente
2
+1, bien formulado. Me gusta cómo llamaste a Sclipting como un caso especial.
Kaya

Respuestas:

9

Lote AABBA (Limerick)

Este es mi mejor intento, pero nunca he sido bueno con los poemas.

Código:

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

En inglés:

Echo off else CD slash dot
Si esto equivale a una olla grande
Tipo cero else chef
Color siete f
Ir a EOF else chalote

kitcar2000
fuente
1

Fortran 95 (Pareado McCarron)

McCarron Couplet: "AABBABCCDDCDEEFFEF", una versión contemporánea de un patrón de rima clásico, presentado por el académico James McCarron.

Mi código (que debe guardarse como 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

Que se copia en archivos numerados, comenzando con all0.f95, a continuación all1.f95, all2.f95y así sucesivamente ...

Se lee:

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
gilbertohasnofb
fuente