Bu zorluk Meta Quine miyim benzer ?

Bir quine, STDOUT'ta kendini üreten bir programdır. Bu zorluk, çalıştırıldığında STDOUT'ta bir program B üreten bir A programı üretmektir. Program B çalıştırıldığında STDOUT'ta A programı üretir. A ve B programları aynı dilde yazılmalı (ve çalıştırılmalıdır). Bağlantılı soru A! = B'yi kısıtladı. Bu çok kolay görünüyordu. Bu soru için, aşağıdaki kurallar kullanılarak A ve B'nin antika olduğu konusunda ısrar ediyoruz:

1. A ve B programları aynı karakterlerden hiçbirini kullanamaz, boşluk ve ifade ayırıcıları ve noktalama işaretleri için kaydedemez.
2. A ve B programlarının her biri, ne boşluk ne de ifade ayırıcısı ya da noktalama işareti olmayan en az bir karakter içermelidir.
3. Kural 1 ve 2'nin amacı için, "boşluk" terimi, kendisi bir yorumlayıcı, operatör veya (ayırıcının aksine) yorumlanan herhangi bir sembol veya sembol dizisini hariç tutar. Bu nedenle Boşluk dilinde, boşluk yoktur.
4. Bir ifade ayırıcı, deyimleri ayırmak için geleneksel olarak dil içinde kullanılan sözdizimsel bir öğedir. Bu, python'daki yeni satırı veya Java, perl veya C'deki noktalı virgül içerir.
5. Noktalama işareti, boşluk veya POSIX sözcük karakteri sınıfında olmayan bir ASCII karakteridir (yani, bir alt çizgi bu amaç için noktalama işareti değildir) - yani ispunct()true değerini döndürür ve olmaz _.
6. Program A çalıştırıldığında STDOUT üzerinde bir program (Program B) üretmelidir, bu program çalıştırıldığında Program A üretir.
7. A ve B programları aynı programlama dilinde olmalıdır.
8. Kullanılan programlama dili aslında bir programlama dili olmalıdır. Aksi takdirde iyi bir dava açmazsanız, Turing'in tamamlanması gerektiğini öneririm.
9. A ve B'den en az biri, dil içinde en az bir ifade yürütmelidir.

Bu kod golf, bu yüzden en kısa cevap kazanır, skor A programının bayt cinsinden uzunluğudur (yani B programının uzunluğu ilgili değildir).

GolfScript, 13 bayt

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

Çıktı

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

ilk programı oluşturur.

Bayt sayımı, sondaki LF'yi içerir, çünkü çıktının çıkışı bunu içerecektir.

Çevrimiçi deneyin.

Nasıl çalışır

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, yığının içeriğini sonlandırma üzerine yazdırır.

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.

Çıkış 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.

Çıkış programı A

ROT13 ( kural güncellemesinden sonra artık rekabet etmiyor )

Bunun bir dil olarak kabul edilip edilmediğinden emin değilim, ama kesinlikle meydan okuma için uydurmadım. Genellikle bazı yardımcı programlar için yanıtlar sedda kabul edilir. Ben bunların kaldırılacağı sayılmaz eğer öyleyse Ancak, bir yargı çağrı (? Dile Edit gibi neyi sayar bir meta tartışma orada bir yerde olduğunu: var Orada şimdi )

A

Arasındaki döngüleri Ave N:

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