Bir dize ve tamsayı olarak girdi alan nve çıktısını alan bir program yazın :

1. Programa ndefalar önce geçen dize ;
2. Bir sonraki çağrı için kullanılacak yeni bir program.

Programın dışında hiçbir veri depolayamazsınız ve programınız zincirdeki önceki programları çağıramaz. Dizge mevcut değilse, boş bir dizge çıktı (ancak bir sonraki programa yine de çıktı).

program_nHer art arda program için gösterimi kullandığım örnek çalışma (Tabii ki, [This text is the nth program]gerçek kodla değiştirilecektir.)

$ program_1 "One" 1
[This text is the second program]
$ program_2 "Two" 1
One
[This text is the third program]
$ program_3 "Three" 2
One
[This text is the fourth program]
$ program_4 "Four" 2
Two
[This text is the fifth program]
$ program_5 "Five" 1
Four
[This text is the sixth program]

CJam, 25

L{\_l~(>1<lN+a@+`@"_~"}_~

Çevrimiçi deneyin

Açıklama:

L      push an empty array (this is the array of previous strings)
{…}    push this block
_      duplicate the block
~      execute the 2nd copy (the stack contains the array and the block)

Blok:

\      swap the array with the block
_      duplicate the array
l      read a line from the input (containing the integer n)
~(     evaluate n and decrement it
>      slice the array starting at that position
1<     slice the resulting array to keep only the first string (if any)
l      read the 2nd line from the input (containing the string)
N+     append a newline
a      wrap in an array
@      bring the previous array to the top
+      concatenate the arrays, thus prepending the new string
`      convert the array to its string representation
@      bring the block to the top
"_~"   push this string

Sonunda, istenen dize (varsa), dizinin gösterimi, blok ve "_ ~" dizesi otomatik olarak yazdırılır.

Python, 221 bayt

import sys
o,p=[''],r'import sys;a,o,p=int(sys.argv[2]),[{2},{0}],{1};print o[a] if len(o)>a else "","\n",p.format(`sys.argv[1]`,`p`,",".join(`s`for s in o))'
print '\n',p.format(`sys.argv[1]`,`p`,','.join(`s`for s in o))

Bunu kolayca test etmek için ./thisgolf.py "yourfirststring" | python -c "import sys;exec(sys.stdin.read().split('\n')[1])" "your second string" <N>, son biti istediğiniz kadar tekrarlayarak kullanın .

Python 2,207 bayt

def r(O,R):import sys,marshal as m;a=sys.argv;b=int(a[2]);O.extend(["",""]*b);O[b]=a[1];print"%s\nfrom marshal import*;c=%r;i=lambda:0;i.__code__=loads(c);i(%r,i)"%(O[0],m.dumps(R.__code__),O[1:])
r([""],r)

Diğer quine'm üzerine inşa edildi ancak programı değiştirdi , bu görev daha kolay, bu yüzden daha fazla golf yapabildim. Eğer girdiyi stdin'e alabilseydim, bu çok daha kısa olmalıydı.

Javascript ES6, 130 128 121 120 113 bayt

a=[];b=_=>{a.push(prompt());console.log((a[a.length-prompt()-1]||"")+`
a=`+JSON.stringify(a)+";b="+b+";b()")};b()