To wyzwanie jest podobne do Can You Meta Quine?

Quine to program, który produkuje się na STDOUT. Wyzwanie polega na utworzeniu programu A, który po uruchomieniu tworzy program B na STDOUT. Program B po uruchomieniu tworzy program A na STDOUT. Programy A i B muszą być napisane w tym samym języku (i działać w tym samym języku). Połączone pytanie ograniczało A! = B. To wyglądało zbyt łatwo. Dlatego w tym pytaniu nalegamy, aby A i B były antykami, stosując następujące reguły:

1. Programy A i B nie mogą używać tych samych znaków, z wyjątkiem białych znaków i separatorów instrukcji oraz znaków interpunkcyjnych.
2. Programy A i B muszą zawierać co najmniej jeden znak, który nie jest ani białą spacją, ani separatorem instrukcji, ani znakiem interpunkcyjnym.
3. Do celów reguł 1 i 2 termin „biała spacja” wyklucza dowolny symbol lub sekwencję symboli, który sam jest interpretowanym wyrażeniem, operatorem lub symbolem (w przeciwieństwie do separatora). Dlatego w języku białych znaków nie ma białych znaków.
4. Separator instrukcji to element składniowy konwencjonalnie używany w języku do rozdzielania instrukcji. Obejmuje to nowy wiersz w pythonie lub średnik w Javie, perl lub C.
5. Znak interpunkcyjny to znak ASCII, który nie jest ani białą spacją, ani klasą wyrazów POSIX (tzn. Podkreślenie nie jest w tym celu interpunkcją) - tzn. ispunct()Zwróci prawdę, a nie będzie _.
6. Program A po uruchomieniu musi wytworzyć program (Program B) na swoim STDOUT, który po uruchomieniu tworzy Program A.
7. Programy A i B muszą być w tym samym języku programowania.
8. Używany język programowania musi być faktycznie językiem programowania. Chyba że zrobisz dobry przypadek, sugeruję, że Turing musi być kompletny.
9. Co najmniej jedna z liter A i B musi wykonać co najmniej jedną instrukcję w języku.

Jest to kod golfowy, więc wygrywa najkrótsza odpowiedź, a wynik to długość programu A w bajtach (tzn. Długość programu B nie ma znaczenia).

GolfScript, 13 bajtów

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

Dane wyjściowe to

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

który generuje program początkowy.

Liczba bajtów obejmuje końcowy LF, ponieważ dane wyjściowe będą go zawierały.

Wypróbuj online.

Jak to działa

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 drukuje zawartość stosu po zakończeniu.

Pascal (731 znaków)

Program 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.

Program wyjściowy 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.

Program wyjściowy A.

ROT13 ( już nie konkuruje po aktualizacji reguły )

Nie jestem pewien, czy liczy się to jako język, ale z pewnością nie nadrobiłem tego wyzwania. Zazwyczaj odpowiedzi na niektóre narzędzia, takie jak sedsą również akceptowane. Jest to jednak wyrok osądu, więc jeśli się nie liczy, usunę go (czy jest gdzieś meta dyskusja na temat tego, co liczy się jako język? Edytuj: Teraz jest )

A

Cykle między Ai N:

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