Este desafío es similar a Can you Meta Quine?

Un quine es un programa que se produce en STDOUT. Este desafío es producir un programa A que cuando se ejecuta produce un programa B en STDOUT. El programa B cuando se ejecuta produce el programa A en STDOUT. Los programas A y B deben estar escritos (y ejecutarse) en el mismo idioma. La pregunta vinculada restringió A! = B. Eso parecía demasiado fácil. Entonces, para esta pregunta, insistimos en que A y B son antigüedades, usando las siguientes reglas:

1. Los programas A y B no pueden usar ninguno de los mismos caracteres, salvo los espacios en blanco y los separadores de enunciados, y los caracteres de puntuación.
2. Los programas A y B deben contener cada uno al menos un carácter que no sea un espacio en blanco ni un separador de enunciados, ni un carácter de puntuación.
3. A los efectos de las reglas 1 y 2, el término 'espacio en blanco' excluye cualquier símbolo o secuencia de símbolos que en sí mismo sea una declaración, operador o símbolo que se interprete (en lugar de un separador). Por lo tanto, en el lenguaje de espacios en blanco, no hay espacios en blanco.
4. Un separador de enunciados es un elemento sintáctico usado convencionalmente dentro del lenguaje para separar enunciados. Esto incluiría la nueva línea en python, o el punto y coma en Java, perl o C.
5. Un carácter de puntuación es un carácter ASCII que no es un espacio en blanco ni en la clase de caracteres de la palabra POSIX (es decir, un guión bajo no es una puntuación para este propósito), es decir ispunct(), devolvería verdadero, y no lo es _.
6. El programa A cuando se ejecuta debe producir un programa (Programa B) en su STDOUT, que cuando se ejecuta a su vez produce el Programa A.
7. Los programas A y B deben estar en el mismo lenguaje de programación.
8. El lenguaje de programación utilizado debe ser realmente un lenguaje de programación. A menos que haga un buen caso de lo contrario, sugeriré que debe ser Turing completo.
9. Al menos uno de A y B debe ejecutar al menos una declaración dentro del lenguaje.

Este es el código de golf, por lo que gana la respuesta más corta, siendo la puntuación la longitud del programa A en bytes (es decir, la longitud del programa B no es relevante).

GolfScript, 13 bytes

1{\~\".~"}.~

La salida es

-2{\~\".~"}.~

que genera el programa inicial.

El recuento de bytes incluye el LF final, ya que la salida de la salida lo contendrá.

Pruébalo en línea.

Cómo funciona

1       # Push 1.
{       # Start code block.
  \~\   # Apply logical NOT to the second topmost element of the stack.
  ".~"  # Push that string.
}       # End code block.
.~      # Duplicate the code block and execute the copy.

GolfScript imprime el contenido de la pila al finalizar.

Pascal (731 caracteres)

Programa A

program s;{$h+}uses sysutils;const p='program s;{$h+}uses sysutils;const p=';a='a';aa=''';';aaa='a=''';aaaa='''';aaaaa='begin write(lowercase(p+aaaa+p+aa+aaa+a+aa+a+aaa+aaaa+aa+aa+a+a+aaa+aaa+aaaa+aa+a+a+a+aaa+aaaa+aaaa+aa+a+a+a+a+aaa+stringreplace(stringreplace(stringreplace(stringreplace(aaaaa,aaaa,aaaa+aaaa,[rfreplaceall]),''lower''+''c'',''tm''+''p'',[]),''up''+''c'',''lower''+''c'',[]),''tm''+''p'',''up''+''c'',[])+aa+aaaaa))end.';begin write(upcase(p+aaaa+p+aa+aaa+a+aa+a+aaa+aaaa+aa+aa+a+a+aaa+aaa+aaaa+aa+a+a+a+aaa+aaaa+aaaa+aa+a+a+a+a+aaa+stringreplace(stringreplace(stringreplace(stringreplace(aaaaa,aaaa,aaaa+aaaa,[rfreplaceall]),'lower'+'c','tm'+'p',[]),'up'+'c','lower'+'c',[]),'tm'+'p','up'+'c',[])+aa+aaaaa))end.

Salidas del programa B:

PROGRAM S;{$H+}USES SYSUTILS;CONST P='PROGRAM S;{$H+}USES SYSUTILS;CONST P=';A='A';AA=''';';AAA='A=''';AAAA='''';AAAAA='BEGIN WRITE(UPCASE(P+AAAA+P+AA+AAA+A+AA+A+AAA+AAAA+AA+AA+A+A+AAA+AAA+AAAA+AA+A+A+A+AAA+AAAA+AAAA+AA+A+A+A+A+AAA+STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(AAAAA,AAAA,AAAA+AAAA,[RFREPLACEALL]),''LOWER''+''C'',''TM''+''P'',[]),''UP''+''C'',''LOWER''+''C'',[]),''TM''+''P'',''UP''+''C'',[])+AA+AAAAA))END.';BEGIN WRITE(LOWERCASE(P+AAAA+P+AA+AAA+A+AA+A+AAA+AAAA+AA+AA+A+A+AAA+AAA+AAAA+AA+A+A+A+AAA+AAAA+AAAA+AA+A+A+A+A+AAA+STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(STRINGREPLACE(AAAAA,AAAA,AAAA+AAAA,[RFREPLACEALL]),'LOWER'+'C','TM'+'P',[]),'UP'+'C','LOWER'+'C',[]),'TM'+'P','UP'+'C',[])+AA+AAAAA))END.

Salidas del programa A.

ROT13 (ya no compite después de la actualización de la regla )

No estoy seguro de si esto cuenta como un idioma, pero ciertamente no lo compensé para el desafío. Por lo general, las respuestas para ciertas utilidades como sedlas aceptadas también. Sin embargo, es una decisión judicial, así que si no cuenta, lo eliminaré (¿hay alguna discusión en algún lugar sobre lo que cuenta como idioma? Editar: Ahora hay )

A

Ciclos entre Ay N:

~>> echo "A" | rot13
N
~>> echo "A" | rot13 | rot13
A