Tantangan ini mirip dengan Can You Meta Quine?

Quine adalah program yang menghasilkan dirinya sendiri di STDOUT. Tantangan ini adalah untuk menghasilkan program A yang ketika dijalankan menghasilkan program B pada STDOUT. Program B saat dijalankan menghasilkan program A pada STDOUT. Program A dan B harus ditulis dalam (dan dijalankan dalam) bahasa yang sama. Pertanyaan terkait membatasi A! = B. Itu terlihat terlalu mudah. Jadi untuk pertanyaan ini, kami bersikeras bahwa A dan B adalah barang antik, menggunakan aturan berikut:

1. Program A dan B tidak boleh menggunakan karakter yang sama, simpan untuk spasi putih dan pemisah pernyataan, dan karakter tanda baca.
2. Program A dan B masing-masing harus mengandung setidaknya satu karakter yang bukan spasi putih atau pemisah pernyataan, atau karakter tanda baca.
3. Untuk keperluan aturan 1 dan 2, istilah 'spasi putih' tidak termasuk simbol atau urutan simbol yang dengan sendirinya merupakan pernyataan, operator atau simbol yang ditafsirkan (sebagai lawan dari pemisah). Oleh karena itu dalam bahasa Whitespace, tidak ada spasi putih.
4. Pemisah pernyataan adalah elemen sintaksis yang secara konvensional digunakan dalam bahasa untuk memisahkan pernyataan. Ini akan termasuk baris baru dalam python, atau titik koma di Jawa, perl atau C.
5. Karakter tanda baca adalah karakter ASCII yang bukan spasi putih atau dalam kelas karakter kata POSIX (yaitu garis bawah bukan tanda baca untuk tujuan ini) - yaitu ispunct()akan mengembalikan true, dan bukan _.
6. Program A ketika dijalankan harus menghasilkan program (Program B) pada STDOUT-nya, yang ketika dijalankan pada gilirannya menghasilkan Program A.
7. Program A dan B harus dalam bahasa pemrograman yang sama.
8. Bahasa pemrograman yang digunakan harus benar-benar bahasa pemrograman. Kecuali Anda membuat kasus yang baik sebaliknya, saya akan menyarankan itu harus Turing lengkap.
9. Setidaknya satu dari A dan B harus menjalankan setidaknya satu pernyataan dalam bahasa tersebut.

Ini adalah kode golf, jadi jawaban tersingkat menang, skor menjadi panjang program A dalam byte (yaitu panjang program B tidak relevan).

GolfScript, 13 byte

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

Outputnya adalah

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

yang menghasilkan program awal.

Hitungan byte menyertakan LF yang tertinggal, karena output dari output akan mengandungnya.

Cobalah online.

Bagaimana itu bekerja

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 mencetak konten stack setelah penghentian.

Pascal (731 karakter)

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.

Output program 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 keluaran A.

ROT13 ( tidak bersaing lagi setelah pembaruan aturan )

Tidak yakin apakah ini dianggap sebagai bahasa, tapi saya jelas tidak menebusnya. Biasanya jawaban untuk utilitas tertentu seperti sedditerima juga. Namun, ini panggilan penilaian, jadi jika tidak masuk hitungan saya akan menghapusnya (adakah diskusi meta di suatu tempat tentang apa yang dianggap sebagai bahasa? Edit: Ada sekarang )

A

Siklus antara Adan N:

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