プログラム（または関数）を作成します（P1と呼びましょう）。実行すると、同じ言語で、P1より正確に1バイト長い別のプログラムP2を出力します。

プログラムP2を実行すると、P2より1バイト長い3番目のプログラムP3が出力されます。P3は、P3などよりも1バイト長いプログラムP4を出力する必要があります。P5、P6、...、P∞についても同じです。

プログラムチェーンは無期限に、またはインタープリターがもう処理できない場所に移動する必要があります（ただし、言語では理論的に有効なプログラムのままでなければなりません）

ルール

• 禁止されている標準的な抜け穴
• チェーン内のすべてのプログラムは1つの言語である必要があります
• 入力はありません。出力は標準出力または関数の戻り値になります
• プログラムは一定期間後に終了する必要があります。特定のタイムスポットの後に出力の生成を停止するプログラムは、終了しない

各言語のバイト単位の最短プログラムP1が勝ちます！

JavaScript（ES6）、14 12バイト

@Shaggyのおかげで-2バイト

f=_=>"f=_"+f

スニペットのテスト

s=`f=_=>"f=_"+f`;

for(i=10;i--;s=eval(s)())
  o.innerText+=s+"\n";

<pre id=o></pre>

7 ASCIIの、4バイト

1603

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

7は通常ASCIIでエンコードされないことを知っていますが、今回は3ビットではなく、実行ごとに1バイトを追加するように、より便利なエンコードです。

これが不正行為としてカウントされるかどうかもわかりません。（多くの方法で境界線をまたいでいるので、7の馬が不正行為を行っているかどうかは不明です。）がを0エンコードするというまともな議論をすることはできます6が、一般に、結果の文字がどこから来るのかは不明です「7には、非常に多くのかなり奇妙な暗黙の動作があるためです。

このプログラムは、自分自身に1アペンドを付けて出力します。これには、いくつかの1sを追加しても出力されます。以下のコメント付きデバッグトレースを示します160311。

|| 160311      Initial data ||; initial program 160311
||7 60311      1 command = append 7 to data
|1 0311        6 command = escape from the last | onwards (7 escapes to 1)
|16e77         0311 commands = append 6e77 to data
|16e77 16e77   Implicit (program is empty): copy data past last | to program
|16e777 6e77   1 command = append 7 to data
71603111 e77   6 command = escape from the last | onwards
71603111 e77   e7 command = output in same encoding as the source

（|プログラムには残っていないのでe、副作用としてすぐにプログラムを終了し7ます。つまり、最後のsは決して実行されません）。

すべての文字がどこから来ているかについての基本的な混乱は、7のほとんどのコマンドが実行時にデータを生成するだけであり、その後6、特定のデータフラグメントを生成する一連のコマンドを再構築しようとすることです。これは、多くの場合、元のものに近いものの同一ではありません。（クイニングの目的で、通常は結果がほぼ同じになるように7プログラムを記述します。通常、先頭または末尾7のsが異なります。）たとえば、1データ内はになり716、これが追加する最も簡単な方法です。1現在のデータ文字列に。私たちはもともと16、異なる（しかし類似した）文字シーケンスでそれを作成しました。|データが始まるマーカー。（おそらくこれがリテラルのみのクインではないという最良の議論は、出力が入力と異なるということでしょう！）

Haskell、74 66バイト

編集：

• を使用してH.PWizで-2バイト<>、(10*)<$>。

これは、新しく無料の<>演算子を使用するようになりました（Semigroup乗算、インポートなしで動作するにはGHC 8.4が必要です）。

main=putStr$fst<>show$(10*)<$>("main=putStr$fst<>show$(10*)<$>",1)

オンラインでお試しください！（TIOにはまだGHC 8.4がないため、インポートでのチート。）

使い方

• main=putStr$ 次の文字列値を出力するボイラープレートです。

• fst<>showは、タプルを受け取り、タプルの文字列表現と連結されたタプルの最初の要素で構成される文字列を返す関数です。すなわち

  (fst<>show)(s,t) = fst(s,t)<>show(s,t) = s++show(s,t)

• (10*)<$>次のタプルの最後の要素に10を掛け0て、文字列表現に数字を追加します。

C（gcc）、134 132バイト

正規のCクインのわずかな修正。ひどく長い。

x;*s="x;*s=%c%s%c;main(i){for(i=__LINE__;i--;puts(&x));printf(s,34,s,34);}";main(i){for(i=__LINE__;i--;puts(&x));printf(s,34,s,34);}

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

核分裂2、7つのバイト

'!+OR!"

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

標準のFission quineですが、!各反復でコードの先頭に追加の0x01を出力するエクストラがあります。

パリ/ GP、35バイト

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

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

Python 2、38バイト

s="print's=%r;exec s'%(s+'#')";exec s

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

brainfuck、420バイト

->+++>>+++>+>++>+++>+>+>+++>>>>>>>>>>>>>>>>>>>>+>+>++>+++>++>>+++>+>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>+>+>>+++>>+++>>>>>+++>+>>>>>>>>>++>+++>+++>+>>+++>+++>+>++>>+++>+>+++>+>++>+++>>>+>+>++>+++>+>+>>+++>>>>>>>+>+>>>+>+>++>+++>+++>+>>+++>>>+++>+>++>+++>++>>+>+>++>+++>+>+>>+++>>>>>+++>+>>>>>++>+++>+++>+>>+++>>>+++>+>+++>+>>+++>>+++>>++[[>>+[>]++>++[<]<-]>+[>]<+<+++[<]<+]>>->[>]++++>++[[<++++++++++++++++>-]<+++++++++.<]>.

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

これは、「標準」に変更されBrainFuckのQUINEで、.最後に余分な上の鋲がその.各反復。

クイン自体はBrainfuck文字を16進数字のスタックとしてエンコードします。具体的には、の16進数字はc-0x2b次のように便利です。

+: 0x00
-: 0x02
[: 0x30
]: 0x32
<: 0x11
>: 0x13
,: 0x01
.: 0x03

エンコードは2つのコードスニペットをカバーします。>++[[>>+[>]++>++[<]<-]>+[>]<+<+++[<]<+]>>->[>]++++>++エンコード自体のエンコードをプッシュし[[<++++++++++++++++>-]<+++++++++.<]、スタックをウォークしてすべてを出力します。

汚れた、9バイト

'"n[!]a!␛

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

'   start and end a string literal
"   push a literal '
n   remove newlines
[!] print the string
a   push the alphabet
!   print the first character
␛   end the program

ソースコードの読み取りが許可されている場合：

汚れた、8バイト

Q[!]W33!

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

説明：

Q   push the source code
[!] print each character
W   clear the now-empty stack
33! print an exclaimation mark

有効かもしれません：

汚れた、4バイト

Q[‼]

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

ソースコードを末尾の改行で出力します。
（そして、バグのためにたくさんのスペースがあります。ただし、スペースなしでも同じように機能します。）

あなたはそれが間に出力した文字交換する必要があるので、TIO上でそれをしようとする-あなたがUTF8のフロントエンドを使用する場合、それが唯一のネイティブ文字セットで動作し、ないことを注意[]してsの‼それは、印刷何のためにUTF8と同等です、 。

ジャワ8、162の 146バイト

v->{String s="v->{String s=%c%s%1$c+1;return s.format(s,34,s).replaceAll(%1$c1+$%1$c,%1$c%1$c);}"+1;return s.format(s,34,s).replaceAll("1+$","");}

オンラインでお試しください。
最初の出力プログラムを試してください。2番目の出力プログラムを試してください。3番目の出力プログラムを試してください。

説明：

v->{                       // Method with empty unused parameter and String return-type
  String s="v->{String s=%c%s%1$c+1;return s.format(s,34,s).replaceAll(%1$c1+$%1$c,%1$c%1$c);}"
                           //  The unformatted source code
           +1;             //  Plus a random digit (1 in this case)
  return s.format(s,34,s)  //  Create the quine
          .replaceAll("1+$","");}
                           //  Then remove any trailing 1s

QUINE -part：

• にString sは、未フォーマットのソースコードが含まれています。
• %sを使用して、このStringをそれ自体に入力するために使用されますs.format(...)。
• %c、%1$cおよびは34、二重引用符のフォーマットに使用されます。
• s.format(s,34,s) すべてをまとめる

チャレンジパート：

• +1 書式なしプログラムと書式付きプログラムの両方に1を追加します。
• .replaceAll("1+$","");}：プログラムのバイトカウントを2ではなく1だけ増やしたいため、戻る前に末尾の1を削除します。

> <>、9バイト

#o<:}-1:"

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

古典的な> <>クインのバリエーションで、単純に別のdupeコマンドを追加#して前面にコピーします。

Perl 5、32バイト

$_=q{say"\$_=q{$_
};eval"};eval

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

GolfScript、9バイト

{'.~1'}.~

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

CJam、9バイト

{"_~1"}_~

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

私はこれらのソリューションの両方を同じ答えに掲載しています。なぜなら、これらはお互いの些細な違いであり、まったく同じように機能するからです。これらは両方とも、一般的なGolfScript クイン{'.~'}.~（または{"_~"}_~CJam）に基づいています。これについては、たとえば以前の私の回答で詳しく説明しています。

唯一の違いは、このバリアントは1出力の最後にバイトを追加することです。たまたま、1sの文字列（または先行ゼロなしのその他の整数リテラル）はそれ自体、GolfScriptとCJamの両方で些細なものです。したがって、上記のコードの最後にすでに存在するものは、そのまま出力にそのままコピーされます。GolfScript（およびCJam）は任意の長さの整数を使用するため、少なくともコードを実行しているコンピューターにそれを格納するのに十分なメモリがある限り、これは任意の長さのプログラムで機能します。

アタッチ、76 72 61バイト

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]",Repr[x+sp]]

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

x各反復後の末尾にスペースを追加する標準のクイン。

最初の数回の反復：

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]",Repr[x+sp]]

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]] ",Repr[x+sp]]

Print!Format[x:="Print!Format[x:=%s,Repr[x+sp]]  ",Repr[x+sp]]

等

アタッシュ、72バイト

y:=1Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

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

これは単純に標準形式のクインのバリエーションであり、変数yは10*y各反復後に設定されます

最初の数回の反復：

y:=1Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

y:=10Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

y:=100Print!Format[x:="y:=%sPrint!Format[x:=%s,y*10,Repr!x]",y*10,Repr!x]

等

Swift 4、89バイト

let(a,b)=(";print(\"let(a,b)=\\((a,b+\"-\"))\"+a)", "");print("let(a,b)=\((a,b+"-"))"+a)

末尾の改行を含む

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

Haskell、88バイト

main=putStr$snd(span(<'m')s)++show s;s='#':"main=putStr$snd(span(<'m')s)++show s;s='#':"

オンラインでお試しください！#データ文字列の先頭に追加することにより成長します。

スタックス、20 18バイト

"34s+cTZL"34s+cTZL

実行してデバッグする

反復ごとに2番目の引用符の前に余分なスペースを生成します。

説明

プログラム"34s+cTZL "34s+cTZLを使用して説明します。

"34s+cTZL "34s+cTZL
"34s+cTZL "            String literal
           34s+        Prepend a double quote, Now the string is `"34s+cTZL `
               cT      Copy and trim trailing spaces
                 Z     Put a 0 under the top of stack
                       Stack now (from top to bottom): `["34s+cTZL,0,"34s+cTZL ]`
                  L    Collect all elements on stack, from bottom to top
                       Implicit output, 0 is converted to space.

Jstx、4 バイト

£↕♣:

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

ルーン文字のエンチャント、6バイト

"'<S@>

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

これは変だった。私がやらなければならなかったことは、ジョーキングによって見つけられ~た元の馬からa を取り除くことでした。

追加の実行ごと<に、最後に別の実行が追加されます。例：

"'<S@><<<<<<<<<

これらはすべて何もしません。

関連する課題に関するこの回答の直接コピー。繰り返しごとに1バイトずつ既に成長しているのです（このチャレンジがそのチャレンジの複製であること、またはその逆の強い主張）。

ゼリー、11バイト

“⁾;⁶;ØV” ṘV

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

ワンダー、33バイト

f\ @(-> ol) ["f\ ";f;";f1";#0];f1

各反復後に1を追加する、通常のクインの興味深い変形。

進行：

f\ @(-> ol) ["f\ ";f;";f1";#0];f1
f\ @(-> ol) ["f\ ";f;";f1";#0];f11
f\ @(-> ol) ["f\ ";f;";f1";#0];f111
...

説明

f\ @                               #. Sets f to a function that does the following:
    (-> ol) [                      #.   Output each:
             "f\ ";                #.     String for declaration of f
                   f;              #.     Formatted representation of f's function
                     ";f1";        #.     String for call of f
                           #0      #.     Argument passed into f
                             ];f1  #. Call f with 1 as the argument

このクインの興味深い部分の1つは、Wonderが任意の精度の数で動作できることです。そのため、一定の数の後でも進行は中断しません。

ColdFusion、277バイト

<cfset u=Chr(34)><cfset q="<cfset u=Chr(34)><cfset q=%s%s%s><cfoutput>%screateObject(%sjava%s,%sjava.lang.String%s).format(q,[u,q,u,Chr(35),u,u,u,u,Chr(35)])%s</cfoutput>
"><cfoutput>#createObject("java","java.lang.String").format(q,[u,q,u,Chr(35),u,u,u,u,Chr(35)])#</cfoutput>

これは、ColdFusionクインの簡単な修正で、呼び出されるたびに改行が追加されます。

lucee-express-5.2.6.60でローカルにテスト済み

Windowsバッチ、38 36バイト

echo|set/p"=q">q&copy/b/y %0+q %0
::

このコードは、文字「q」を含む「q」というファイルを作成し、元のファイルに追加します。「::」は追加スペースを必要としない「rem」のエイリアスであることに注意してください。

user3493001のおかげで2バイト節約されました。

Gol> <>、7バイト

":r2ssH

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

これは通常のGol> <>クインの単純なバリエーションですが、H実行されるたびにコピーが追加されます。Hコマンドはプログラムを停止するため、H最後に追加しても動作は変わりません。

T-SQL、175バイト

DECLARE @ VARCHAR(MAX)='DECLARE @ VARCHAR(MAX)=*SET @=TRIM(REPLACE(@,0x2a,CHAR(39)+@+CHAR(32)+CHAR(39)))PRINT @'SET @=TRIM(REPLACE(@,0x2a,CHAR(39)+@+CHAR(32)+CHAR(39)))PRINT @

最初にSQLクインを作成し、次にそれを変更して余分なスペースを追加しました（この回答に少し触発されました）。

Befunge-98（PyFunge）、22 19バイト

r:#,_ #;'D2/'<,,@;"

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

すべての世代の最後の "の前に<を追加します。

C＃（Visual C＃Interactive Compiler）、89バイト

var s="var s={0}{1}{0}+8;Write(s.Trim('8'),(char)34,s);"+8;Write(s.Trim('8'),(char)34,s);

Kevin Cruijssenの答えに触発されました。

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