Ця 128-мовна quine ouroboros (програма, яка виводить програму іншою мовою, яка виводить програму ще однією мовою (125 мов пізніше), яка виводить оригінальну програму) є досить вражаючою. Але, на жаль, він має статичну кількість ітерацій.

Напишіть програму, яка виводить програму (не обов'язково іншою мовою, але це може бути), яка виводить програму, яка виводить програму тощо, яка після n ітерацій виводить оригінальну програму вперше (тобто немає проміжних Програма повинна бути такою ж, як і вихідна, тому що в іншому випадку функціонує квітка, яка ігнорує її введення), де n - негативне ціле число, яке надається як вхід. Вхід не може бути лише номером у вихідному вихідному коді (наприклад, розміщення x = <the value of n>на початку вашої програми), він повинен бути одним із наступних:

1. Передано як аргумент командного рядка
2. Читати зі стандартного введення
3. Передано як аргумент функції, яка повертає / виводить нову програму.

Для проміжних етапів в ouroboros ваша програма може бути або повністю функціонуючою програмою, або функцією без аргументів, яка при виклику поверне / виведе наступну.

Ви не можете читати з самого вихідного файлу або використовувати будь-які вбудовані подібні квітами (я не думаю, що таких було б, але це може бути)

Щоб було зрозуміло, якщо n = 0програма повинна вивести власний вихідний код.

Якщо n = 1програма повинна вивести іншу програму, яка виводить вихідний вихідний код.

І так далі...

Найменше байт виграє!

Редагувати:

Я повинен був написати "Для проміжних етапів в ouroboros, ваша програма може бути або повністю функціонуючою програмою без введення даних , або функцією без аргументів". Якщо ваша програма виводить наступну ланцюжок, тоді чекає на введення, це добре, але вашій програмі не повинно бути потрібне початкове значення n.

05AB1E , 28 байт

-4 байти + виправити завдяки Кевіну Крейсейну

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

Спробуйте в Інтернеті!

Пояснення

Це працює, додавши решту номер для друку на передню частину коду, а це означає, що він додається до стека так само, як і введення. У базовому випадку введення "0" він не об'єднує 0 на передній частині.

Рунічні чари , 39 байт

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

Спробуйте в Інтернеті!

Буде на 4 байти коротшим, ніж 05AB1E, використовуючи ту саму тактику, якщо входи, де менше або дорівнює 10. Але оскільки нам потрібно підтримувати довільно великі значення, це стає складнішим.

Числове значення nрозміщується в передній частині та аналізується як безперервне буквальне число за допомогою ´. "3X4+kSqє основним кодом квінти. Якщо спереду немає значення, довжина стека буде лише 1 (квінка), інакше 2 дозволяють l1=d*?визначити, як поводитися з речами звідти.

• Якщо є значення, S:1-}'LA2+-}виконайте: поміняйте значення на вершину, відніміть 1, дублюйте її, залишивши копію в нижній частині стека, отримайте Журнал ₁₀ цього значення разів 100 (в результаті виходить власна довжина символу значення плюс 1 для ´), видаліть з кінця рядка таку кількість символів (фактично обрізаючи її з кінця, як там, де вона не потрібна, так і тому, що вона має неправильне значення). Cє на один байт коротшим 2+та призводить до того ж значення.

• Якщо немає значення, прочитайте його з введення.

Незалежно: :0)2*?дублювати та порівнювати з нулем.

• Якщо не нульовий поштовх ´.

• Якщо нуль, виведіть значення. Ми можемо обдурити, використовуючи !замість цього 2?і зберегти байт, тому що, коли ´намагається виконати перший байт, він бачить, що він не є числовим і одразу випадає з режиму числення в тій же позиції.

Роздрукуйте всю стеку зверху вниз.

Java 10, 145 байт

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);}

Спробуйте в Інтернеті і подивіться результати деяких ітерацій .

Пояснення:

пояснення quine :

• var sМістить вихідний код Неформатована
• %s використовується для того, щоб поставити цю струну в себе s.format(...)
• %c, %1$cі 34використовуються для форматування подвійних лапок
• s.format(s,34,s) зводить це все разом

Частина виклику:

Перша лямбда-функція приймає longвхід як параметр.

• Це встановлюється змінною Long N=n;в першій ітерації. Або Long N=%s;для наступних ітерацій.
• Потрійна перевірка N>0?N-1+"L":"n"заповнить це %sзначенням N-1, доданим, Lоскільки воно є довгим, і перетворить його в String для %s, якщо Nвоно більше ніж 1. Якщо Nнатомість 0 (початковий ввід був 0або це остання ітерація переписки- ' цикл '), він замість цього заповнить %sпочаткове n.

Haskell , 195 164 байт

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

Спробуйте в Інтернеті!

Для цього використовується досить проста техніка quine. Ми змінюємо його змінною, aяка встановлюється на число. Якщо це число дорівнює нулю (що це на початку), ми беремо вхід і виводимо наше джерело з aвстановленим на вхідне число. Якщо aне дорівнює нулю, ми виводимо джерело aна один менший. Цей спосіб aвідлічується до нуля до виведення вихідного джерела.

Желе , 22 20 байт

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

Спробуйте в Інтернеті!

Спробуйте повторні виклики коду

$n$

R , 92 байти

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

Спробуйте в Інтернеті!

Якщо deparseце вважається обманом, ось альтернатива:

R , 108 байт

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)}

Спробуйте в Інтернеті!

Perl 6 , 44 байти

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

Спробуйте в Інтернеті!

Здійснює введення через стандартний вхід і повертає програму, де єдине, що змінилося - це перше число. Кожна наступна програма буде виводити ту саму програму, за винятком зменшення цієї кількості.

C # (Visual C # Interactive Compiler) , 112 байт

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);}

Збережено багато байтів завдяки @NickKennedy!

Спробуйте в Інтернеті!

Python 3.8 (передвипуск) , 60 56 55 53 байт

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

Спробуйте в Інтернеті!

-2 байти завдяки Джо Кінгу

Станом на 53-байтну версію, також працює в Python 2 та Python 3.