Dieses 128-sprachige Quine Ouroboros (ein Programm, das ein Programm in einer anderen Sprache ausgibt, das ein Programm in einer weiteren Sprache ausgibt (125 Sprachen später), das das ursprüngliche Programm ausgibt) ist ziemlich beeindruckend. Leider hat es eine statische Anzahl von Iterationen.

Schreiben Sie ein Programm, das ein Programm ausgibt (nicht unbedingt in einer anderen Sprache, aber es kann sein), das ein Programm ausgibt, das ein Programm ausgibt usw., das nach n Iterationen das ursprüngliche Programm zum ersten Mal ausgibt (dh kein Zwischenprodukt) Das Programm sollte mit dem Original identisch sein, da sonst ein Quine funktionieren würde, der seine Eingabe ignoriert. Dabei ist n eine nicht negative Ganzzahl, die als Eingabe bereitgestellt wird. Die Eingabe kann nicht nur eine Zahl im ursprünglichen Quellcode sein (z. B. x = <the value of n>beim Start Ihres Programms), sondern sollte eine der folgenden sein:

1. Als Befehlszeilenargument übergeben
2. Lesen Sie von der Standardeingabe
3. Als Argument an eine Funktion übergeben, die das neue Programm zurückgibt / ausgibt.

Für Zwischenstufen im Ouroboros kann Ihr Programm entweder ein voll funktionsfähiges Programm oder eine Funktion ohne Argumente sein, die beim Aufruf das nächste zurückgibt / ausgibt.

Sie können möglicherweise nicht aus der Quelldatei selbst lesen oder quine-ähnliche integrierte Funktionen verwenden (ich glaube nicht, dass es solche gibt, die dies tun würden, aber möglicherweise).

Um klar zu sein, sollte n = 0das Programm seinen eigenen Quellcode ausgeben.

Wenn n = 1, sollte das Programm ein anderes Programm ausgeben, das den ursprünglichen Quellcode ausgibt.

Und so weiter...

Wenig Bytes gewinnen!

Bearbeiten:

Ich hätte schreiben sollen: "Für Zwischenstufen im Ouroboros kann Ihr Programm entweder ein voll funktionsfähiges Programm ohne Eingabe oder eine Funktion ohne Argumente sein." Wenn Ihr Programm das nächste in der Kette ausgibt und dann auf die Eingabe wartet, ist das in Ordnung, aber Ihr Programm sollte nicht den ursprünglichen Wert von n benötigen.

05AB1E , 28 Bytes

-4 Bytes + Fix dank Kevin Cruijssen

"34çìD«s<©di®ì"34çìD«s<©di®ì

Probieren Sie es online aus!

Erläuterung

Dies funktioniert, indem die verbleibende Nummer zum Drucken an die Vorderseite des Codes angehängt wird. Dies bedeutet, dass sie dem Stapel wie eine Eingabe hinzugefügt wird. Im Basisfall der Eingabe von "0" wird die 0 auf der Vorderseite nicht verkettet.

Runenverzauberungen , 39 Bytes

"3X4+kSql1=c*?S:1-}C'LA-}!i:0)2*?~!'´@

Probieren Sie es online aus!

Wäre 4 Bytes kürzer als 05AB1E mit der gleichen Taktik, wenn Eingaben kleiner oder gleich wären 10. Da wir jedoch beliebig große Werte unterstützen müssen, wird es komplizierter.

Der numerische Wert von nwird vorne platziert und als fortlaufendes Zahlenliteral mit analysiert ´. "3X4+kSqist der grundlegende Quine-Code. Wenn vorne kein Wert vorhanden ist, beträgt die Stapellänge nur 1 (die Quine), andernfalls 2, damit l1=d*?festgelegt werden kann, wie die Dinge von dort aus zu handhaben sind.

• Wenn es einen Wert gibt, wird ausgeführt S:1-}'LA2+-}: Tauschen Sie den Wert nach oben aus, subtrahieren Sie 1, duplizieren Sie ihn, lassen Sie eine Kopie am unteren Rand des Stapels, und erhalten Sie das Protokoll ₁₀ dieses Werts mal 100 (was zur eigenen Zeichenlänge des Werts plus führt 1 für die ´), entfernen Sie so viele Zeichen vom Ende der Zeichenfolge (schneiden Sie sich effektiv vom Ende ab, sowohl dort , wo es nicht benötigt wird, als auch weil es den falschen Wert hat). Cist ein Byte kürzer als 2+und ergibt den gleichen Wert.

• Wenn es keinen Wert gibt, lesen Sie einen von der Eingabe.

Unabhängig davon: :0)2*?duplizieren und mit Null vergleichen.

• Wenn nicht Null drücken ´.

• Wenn Null, geben Sie den Wert ein. Wir können mit !anstelle von 2?und speichern ein Byte betrügen, da beim ´Versuch, das erste Byte auszuführen, es nicht numerisch ist und sofort an derselben Position den Zahlenmodus verlässt.

Drucken Sie den gesamten Stapel von oben nach unten.

Java 10, 145 Bytes

n->{Long N=n;var s="n->{Long N=%s;var s=%c%s%2$c;return s.format(s,N>0?N-1+%2$cL%2$c:%2$cn%2$c,34,s);}";return s.format(s,N>0?N-1+"L":"n",34,s);}

Probieren Sie es online aus und sehen Sie sich die Ergebnisse einiger Iterationen an .

Erläuterung:

quine Erklärung:

• Das var senthält den unformatierten Quellcode
• %s wird verwendet, um diesen String mit sich selbst in sich zu setzen s.format(...)
• %c,, %1$cund 34werden zum Formatieren der doppelten Anführungszeichen verwendet
• s.format(s,34,s) fasst alles zusammen

Herausforderungsteil:

Die erste Lambda-Funktion nimmt eine longEingabe als Parameter.

• Dies wird Long N=n;in der ersten Iteration als Variable festgelegt . Oder Long N=%s;für die nächsten Iterationen.
• Die ternäre Prüfung N>0?N-1+"L":"n"füllt dies %smit einem Wert N-1, an den angehängt wird, Lda es lang ist, und konvertiert es in einen String für das %s, wenn Nes größer als 1 ist. Wenn Nstattdessen 0 ist (anfängliche Eingabe war 0oder dies ist die letzte Iteration des Interquine- ' loop '), dies wird stattdessen %smit der Initiale gefüllt n.

Haskell , 195 164 Bytes

main=putStr(x++show x++"\na=")>>(getLine:cycle[pure$show$a-1])!!a>>=putStr
x="main=putStr(x++show x++\"\\na=\")>>(getLine:cycle[pure$show$a-1])!!a>>=putStr\nx="
a=0

Probieren Sie es online aus!

Dies verwendet eine ziemlich einfache Quine-Technik. Wir modifizieren es mit einer Variablen, adie auf eine Zahl gesetzt ist. Wenn diese Zahl Null ist (was am Anfang steht), nehmen wir die Eingabe und geben unsere Quelle aus, wobei adie Eingangsnummer eingestellt ist. Wenn anicht Null ist, geben wir unsere Quelle mit aeinem Wert weniger aus. Auf diese Weise wird abis zur Ausgabe der Originalquelle auf Null heruntergezählt.

Gelee , 22 20 Bytes

“Ṫ_1xẸƲ;Ṿ⁾v,⁾¥ ”v,¥ 

Probieren Sie es online aus!

Versuchen Sie es mit wiederholten Codeaufrufen

$n$

R , 92 Bytes

f=function(n=-1){gsub("\\s","",paste("f=",sub("-?\\d+",n-1,paste(deparse(f),collapse=""))))}

Probieren Sie es online aus!

Wenn dies deparseals Betrug angesehen wird, ist hier eine Alternative:

R 108 Bytes

function(n=-1){s="function(n=%d){s=%s%s%2$s;sprintf(s,n-1,intToUtf8(34),s)}";sprintf(s,n-1,intToUtf8(34),s)}

Probieren Sie es online aus!

Perl 6 , 44 Bytes

<say '<',S{\d+}=get||0-1,'>~~.EVAL'>~~.EVAL

Probieren Sie es online aus!

Übernimmt die Eingabe über die Standardeingabe und gibt ein Programm zurück, bei dem nur die erste Zahl geändert wird. Jedes nachfolgende Programm gibt dann dasselbe Programm aus, außer dass diese Nummer dekrementiert ist.

C # (Visual C # Interactive Compiler) , 112 Byte

void f(int n=-1){var s="void f(int n={2}){{var s={0}{1}{0};Write(s,(char)34,s,n-1);}}";Write(s,(char)34,s,n-1);}

Dank @NickKennedy viele Bytes gespart!

Probieren Sie es online aus!

Python 3.8 (Vorabversion) , 60 56 55 53 Byte

lambda n=-1,s='lambda n=%d,s=%r:s%%(~-n,s)':s%(~-n,s)

Probieren Sie es online aus!

-2 Bytes dank Jo King

Ab der 53-Byte-Version funktioniert auch in Python 2 und Python 3.