プログラムAは実行時にプログラムBのコードを出力し、BはAのソースを出力します。

要件：

• 両方のプログラムで1つの言語のみ
• プログラムは異なります。それ自体を出力する1つのプログラムは資格がありません。
• 両方のプログラムは空ではないか、少なくとも1バイトの長さです。ソースと出力の両方の末尾の改行は無視されます
• stdinは閉じられています。何も読まないでください（したがって、ソースを読み取って操作することはできません）。出力は標準出力に送られます。
  編集： stdinはに接続されてい/dev/nullます。明確になっている場合は、閉じるように注文できます。
• random関数を使用しないでください。

追加：

• 可能であれば説明する

スコアは全長です。プログラムに影響しない場合、末尾の改行はカウントされません。

CJam、13 + 13 = 26バイト

{sYZe\"_~"}_~

オンラインでお試しください！

出力

{sZYe\"_~"}_~

説明

{       e# Standard quine framework, leaves a copy of the block on the stack
        e# for the block itself to process.
  s     e# Stringify the block.
  YZe\  e# Swap the characters at indices 2 and 3, which are Y and Z themselves.
  "_~"  e# Push the "_~" to complete the quine.
}_~

e\2番目と3番目のオペランドが可換であるため、他のプログラムはまったく同じことを行い、元の順序にスワップZしてY戻ります。

CJam、11 + 13 = 24 11 + 12 = 23バイト

"N^_p"
N^_p

オンラインでお試しください！

出力：

"N^_p
"
N^_p

出力には13バイトがありますが、次のとおりです。

プログラムに影響しない場合、末尾の改行はカウントされません。

そこで、それを利用するためにスペースを改行に変更しました。

これは、最短のCJam適切なクインに基づいています。

"_p"
_p

そしてN^、文字列を改行でxorします。これは、各文字が一意である文字列について、改行がない場合は改行を追加し、存在する場合は削除します。

馬の質問でその馬を見たことがあると思いますが、見つけることができませんでした。

RProgN 2、3 + 3 = 6バイト

最初のプログラム：

0
1

オンラインでお試しください！

2番目のプログラム：

1
0

オンラインでお試しください！

-2 Martin Enderに感謝します。

C、95 + 95 = 190バイト

16 * 2バイトを節約してくれた@immibisに感謝します！

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=1^1;printf(s,34,s,34,i);}

オンラインでお試しください！

出力：

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=0^1;printf(s,34,s,34,i);}

オンラインでお試しください！

どの出力：

char*s="char*s=%c%s%c;main(i){i=%d^1;printf(s,34,s,34,i);}";main(i){i=1^1;printf(s,34,s,34,i);}

Javascript、67 + 67 = 134バイト

第1プログラム：

alert(eval(c="`alert(eval(c=${JSON.stringify(c)},n=${+!n}))`",n=0))

2番目のプログラム：

alert(eval(c="`alert(eval(c=${JSON.stringify(c)},n=${+!n}))`",n=1))

これは、ハーマン・ラウエンシュタインのトライインターキンに対する答えに基づいています

Javascript（無効な読み取りソースコード）、75 + 75 = 150 61 + 61 = 122 58 + 58 = 116 50 + 50 = 100バイト

Tusharのおかげで20バイト、Craig Ayreのおかげで6バイト、kamoroso94のおかげで16バイト節約しました

第1プログラム：

f=_=>alert(("f="+f).replace(0,a=>+!+a)+";f()");f()

2番目のプログラム：

f=_=>alert(("f="+f).replace(1,a=>+!+a)+";f()");f()

1と0を入れ替えます。その逆も同様です。これらは両方とも同じことを行い、ソースコードのために異なる出力を生成します。

Python 2、63 + 63 = 126バイト

オンラインで試す

最初のプログラム：

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[23:29]

出力：

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[29:35]

2番目のプログラム：

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[29:35]

出力：

A='A=%r;print A[:23]%%A+A[29:35]23:29]';print A[:23]%A+A[23:29]

JavaScript（JsShell）、35 + 34 = 69バイト

1：

(f=x=>print(`(f=${f})(${-x})`))(-1)

2：

(f=x=>print(`(f=${f})(${-x})`))(1)

Mathematica、43 + 44 = 87バイト

(Print[#1[#0[#1, -#2]]] & )[HoldForm, -1 1]

そして

(Print[#1[#0[#1, -#2]]] & )[HoldForm, -(-1)]

asmutils sh、16 + 16バイト、「stdin is closed」ルールを乱用。

#!/bin/sh
tr x y

stdinが閉じられ、shがスクリプトを最初の使用可能なハンドルまで開くため（最新のシェルのように番号の大きいハンドルに移動するのではなく）、trはスクリプトを開かずにスクリプトのコピーから読み取ります。

このインターフェイスはペイロードに対応していますが、ペイロードの挿入には注意が必要です。

さらに、この元のバージョンは、私が当時使用していた古代のカーネルのいくつかのクレイジーなバグを悪用しています。（私はそのカーネルに何が起こっているのかわかりません-後で、デバイスのメジャー番号とマイナー番号が異なることがわかりました。）asmutilsを壊したABIの変更を修正した場合、インターキンはまだ動作しません。asmutils shにexecがあるかどうかは忘れますが、もしそうなら、これは最新バージョンです：

exec dd skip=0 | tr x y

これは、asmutils ddの意図的なバグを悪用します。パフォーマンスの最適化があり、可能であればスキップのためにllseekを呼び出しますが、バイトを保存するために、SEEK_CURではなくSEEK_SETを渡します。これにより、stderrではゴミが発生しますが、stdoutではインターキンが発生します。Asmutils ddには、stderrスパムを抑制するオプションがありません。

アンダーロード、32 + 32 = 64バイト

(a~a*(:^)*S)(~(a)~a*^a(:^)**S):^

オンラインでお試しください！

(~(a)~a*^a(:^)**S)(a~a*(:^)*S):^

オンラインでお試しください！

Common Lisp、58文字

#1=(let((*print-circle* t))(print'(write '#1# :circle t)))

...または、*print-circle*グローバルに設定されていると仮定しても構わない場合は24文字T：

#1=(print '(write '#1#))

印刷されたコードの表現は、#1#次のコンスセルを指す循環構造として読み取られます#1=。実行されないようにプログラムを引用します。以来、*print-circle*Tは、REPLは、印刷中にこのようなリーダー変数を放出するように注意を要します。これは上記のコードが出力するものであり、以下を返します：

#1=(write '(print '#1#)) 

上記のコードを評価すると、次のように出力されます。

#1=(print '(write '#1#))

のデフォルト値に*print-circle*準拠したい場合（準拠する実装ではNIL）、変数を一時的に再バインドする必要があります。

#1=(let((*print-circle* t))(print'(write '#1# :circle t)))

LETの本体内で、*print-circle*Tであるものを印刷します。

#1=(write
    '(let ((*print-circle* t))
       (print '#1#))
    :circle t) 

ご覧のとおり、新しいプログラムは再バインドしません*print-circle*が、writeによって呼び出される低レベル関数であるを使用しているため、printなどの追加の引数を渡すことができ:circleます。コードは期待どおりに機能します。

#1=(let ((*print-circle* t))
     (print '(write '#1# :circle t)))

円形の構造体の世話をしながら、あなたは物事を印刷するにもかかわらずしかし、あなたは、スクリプトとしてではなく、REPLの内側に上記のプログラムを実行する必要があり、両方writeとprintも印刷されている値を返します。また、デフォルトのREPLでは、値も出力されますが、動的コンテキストの外側に*print-circle*はT があります。

> <>、16 + 16 = 32バイト

":1-}80.r   !#o#

そして

#o#!   r.08}-1:"

オンラインでお試しください！

これは、プログラムでジャンプを使用することで機能します。最初のプログラムのジャンプは、スタックの逆をスキップします（スタックを逆にした場合は、クインになります）。2番目のプログラムはリバースをスキップしませんが、プログラムの流れによってすでにリバースされていた場合、元のプログラムを作成します。

このコードはエラーで終了します。

RProgN 2、7 + 7 = 14バイト

印刷注文を乱用するだけでなく、RProgNのより良い使用方法を誇示したいと思いました...

1
«\1\-

そして...

0
«\1\-

説明した

1   # Push the constant, 1. (Or 0, depending on the program)

«\1\-
«       # Define a function from this to the matching », in this case there isn't any, so define it from this to the end of the program, then continue processing.
 \      # Flip the defined function under the constant.
  1\-   # Get 1 - Constant.

これによりスタックが上下逆に印刷されるため、新しい定数が最初に印刷され、次に関数の文字列化されたバージョンが印刷されます。

オンラインでお試しください！

ロゴ、65 + 66 = 131バイト

apply [(pr ? ` [[,? ,-?2]] )] [[apply [(pr ? ` [[,? ,-?2]] )]] 1]

そして

apply [(pr ? ` [[,? ,-?2]] )] [[apply [(pr ? ` [[,? ,-?2]] )]] -1]

Python 3、74 + 74 = 148バイト

a='a=%r;b=%r;print(b%%(b,a))';b='b=%r;a=%r;print(a%%(a,b))';print(b%(b,a))

そして

b='b=%r;a=%r;print(a%%(a,b))';a='a=%r;b=%r;print(b%%(b,a))';print(a%(a,b))

私もそれを理解していません

> <>、12 + 12 = 24バイト

'3d*!|o|!-c:

そして

':c-!|o|!*d3

オンラインでお試しください！

両方のプログラムは、ラップ文字列リテラルを使用してコードをスタックに追加し、'さまざまな方法でコマンドを生成します。スタックを印刷するとき、コードを後方にプッシュし'ますが、先頭に留まります。'; を生成するいくつかのバリエーションがあります。3d*、d3*、00g、:c-ときとペア3d*と:9-を組み合わせた場合00g。

Befunge-98で13 * 2バイトの投稿するにはあまりにも似たソリューション

"2+ck, @,kc+2

Stax、18 + 20 = 38バイト

"Vn|^34bL"Vn|^34bL

オンラインで実行してデバッグします！

"Vn|^34bL
"Vn|^34bL

オンラインで実行してデバッグします！

説明

完全を期すために追加されました。@ jimmy23013のCJam回答のポート。set xorを使用して改行を切り替えます。

Javascript（ES6）、36 + 36 = 72バイト

プログラム1：

f=n=>('f='+f).replace(/4|5/g,n=>n^1)

プログラム2：

f=n=>('f='+f).replace(/5|4/g,n=>n^1)

これらのプログラムは、自身のクローンを作成すること5により機能4し4、5

console.log((
    f=n=>('f='+f).replace(/4|5/g,n=>n^1)
)())
console.log((
    f=n=>('f='+f).replace(/5|4/g,n=>n^1)
)())

クライン、26 24バイト

<:3+@+3<:"

オンラインでお試しください！

説明

これは私のKlein Quineと同じように機能し、ソースを逆方向に出力し"、最後にa を出力します。切り替えることで<と:、私たちは機能性に干渉することなく、これを行うことができました。

パリ/ GP、36 + 36 = 72バイト

(f=(x)->print1("(f="f")("1-x")"))(1)

オンラインでお試しください！

(f=(x)->print1("(f="f")("1-x")"))(0)

オンラインでお試しください！