该挑战类似于您可以进行Meta Quine吗？

quine是在STDOUT上产生自身的程序。挑战在于产生程序A，该程序在运行时会在STDOUT上产生程序B。运行时，程序B在STDOUT上生成程序A。程序A和B必须以相同的语言编写（并运行）。链接的问题约束A！=B。这看起来太简单了。因此，对于这个问题，我们坚持使用以下规则，将A和B定义为对数：

1. 程序A和B不得使用任何相同的字符，但空格和语句分隔符以及标点符号除外。
2. 程序A和B必须分别包含至少一个既不是空格也不是语句分隔符，也不是标点符号的字符。
3. 出于规则1和2的目的，术语“空白”不包括任何符号或符号序列，它们本身就是被解释的语句，运算符或符号（与分隔符相对）。因此，在空白语言中，没有空白。
4. 语句分隔符是该语言中通常用于分隔语句的语法元素。这将包括python中的换行符，或Java，perl或C中的分号。
5. 标点符号是ASCII字符，它既不是空格也不是POSIX单词字符类（即，下划线不是用于此目的的标点符号），即ispunct()返回true，而不是_。
6. 程序A在运行时必须在其STDOUT上生成程序（程序B），而程序在运行时又会生成程序A。
7. 程序A和B必须使用相同的编程语言。
8. 使用的编程语言实际上必须是一种编程语言。除非您没有其他理由，否则我建议它必须是图灵完整的。
9. A和B中的至少一个必须在该语言中执行至少一个语句。

这是代码高尔夫，所以最短的答案会获胜，得分是程序A的长度（以字节为单位）（即程序B的长度无关紧要）。

GolfScript，13个字节

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

输出是

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

生成初始程序。

字节数包括尾随的LF，因为输出的输出将包含它。

在线尝试。

怎么运行的

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在终止时打印堆栈的内容。

帕斯卡（731个字符）

程序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.

输出程序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.

输出程序A。

ROT13（规则更新后不再竞争）

不知道这是否算作一种语言，但我当然没有弥补这一挑战。通常sed也接受某些实用程序的答案。但是，这是一个判断调用，因此，如果不算在内，我将其删除（是否有关于什么算是一种语言的元讨论？编辑：现在有）

A

A和之间的循环N：

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