Як ми знаємо, quine - це програма, яка виводить власний вихідний код. Однак можливо також написати програму, яка виводить іншу, іншу програму, яка виводить першу програму знову. Наприклад, програма Python 2

x = '''x = {}
print 'print '+'"'*3+x.format("'"*3+x+"'"*3)+'"'*3'''
print 'print '+'"'*3+x.format("'"*3+x+"'"*3)+'"'*3

під час запуску виведе такий текст:

print """x = '''x = {}
print 'print '+'"'*3+x.format("'"*3+x+"'"*3)+'"'*3'''
print 'print '+'"'*3+x.format("'"*3+x+"'"*3)+'"'*3"""

Якщо запустити програму Python, це знову виведе початковий код. Це називається ітераційною квіточкою . Оскільки вам потрібно запустити його двічі, щоб повернути початковий код, ми кажемо, що у нього є період 2 . Але, звичайно, можливі набагато більш високі періоди.

Ваше завдання полягає в тому, щоб написати ітераційну квітку настільки тривалий період, на 100 байт або менше , мовою на ваш вибір. (Зверніть увагу, що мій приклад вище не відповідає цій специфікації, оскільки це 119 байт, включаючи останній новий рядок.)

Зверніть увагу на наступні правила та пояснення:

• Застосовуються звичайні правила quine, тобто ваша програма не може використовувати мовні функції, які дозволять їй отримувати прямий доступ до власного вихідного коду.
• Ітералізовані виходи повинні з часом повернутись до вашого оригінального коду, і ви повинні включити демонстрацію чи доказ того, що це буде.
• Ви також повинні включити пояснення, чому цикл триває до тих пір, поки ви скажете, що це. Це не повинно бути на рівні математичного доказу, але це має бути переконливим для того, хто знайомий з вашою мовою. (Це правило є тут, тому що я очікую, що деякі відповіді включатимуть дуже-дуже велику кількість.)
• Добре сказати щось на кшталт "принаймні 1 000 000 повторень", а не вказувати точну кількість, поки ви зможете довести, що це принаймні так довго. У цьому випадку ваш рахунок склав би 1 000 000. В іншому випадку ваш рахунок - це період вашої родини.
• Обмеження 100 байт застосовується лише до вашої початкової програми - програми, які вона виводить, можуть бути довшими, хоча, звичайно, їм доведеться повернутися до 100 байт, щоб вивести свій вихідний код.
• Ви можете припустити, що ваша машина має нескінченну оперативну пам’ять і нескінченний час виконання, але ви не можете припускати необмежену кількість типів даних точності (наприклад, цілі числа), якщо їх мова не має. Ви можете припустити, що немає обмеження в довжині вводу, з яким може працювати ваш аналізатор.
• Виграє найвищий бал.

Зверніть увагу: існує існуюча проблема, яка називається " кинути ридання"; Почніть Квінінг, що також включає ітерацію лайків. Однак, окрім того, що вони базуються на одній і тій же концепції, це зовсім різні типи проблем. Інший - це гольф прямого коду, тоді як цей (навмисне!) Справді зайнятий проблемою бобра. Методи, необхідні для отримання гарної відповіді на це питання, ймовірно, сильно відрізняються від того, що потрібно для відповіді на інше питання, і це дуже сильно замислює.

PHP, період 2 100 000 000 000

Хто б міг подумати, що це можливо в PHP ?! :-)

Це насправді моя перша в світі квіта, і вона має 99 байт:

<?$i=1;$i*=21e8>$i;printf($a='<?$i=%d;$i*=21e8>$i;printf($a=%c%s%c,++$i,39,$a,39);',++$i,39,$a,39);

Хоча PHP підтримує більшу кількість, ніж 2 * 10^8при переході integerна double, збільшення не більше працює (призводить до нескінченного циклу), і я не знайшов іншого рішення, яке вписується в 100 байт. І все-таки.

Доведення досить просте, оскільки воно просто підраховує кожну ітерацію, поки не досягне точки скидання в 2,1 мільярда.

Кредити Дейву , який розмістив у коментарях підхід у псевдокоді та Боб Твеллсу , від якого я скопіював код для мінімальної квоти PHP.

Тестова програма (sloooooow):

<?php
$o = file_get_contents('quine.php');
for ($i = 0; $i < 22e8; $i++) {
    if ($i%2==0) exec('php q > p'); else exec('php p > q');
    $a = file_get_contents(($i%2==0) ? 'p' : 'q');
    echo "\r" . str_pad($i,6,' ') . ":\t$a";
    if ($a == $o) {
        die;
    }
}

Ну, принаймні я перший відповів.

Математика, період E8.5678 №3 E2.1923 # 4 ~ E6.2695 # 3 # 2

Print[ToString[#0, InputForm], "[", #1 - 1 /. 0 -> "Nest[#!,9,9^9^99!]", "]"] & [Nest[#!,9,9^9^99!]]

Зауважте, що бали описані в позначеннях Hyper-E . Ітерації замінюють фінал Nest[#!,9,9^9^99!]десятковими розширеннями Nest[#!,9,9^9^99!]- 1, Nest[#!,9,9^9^99!]- 2, Nest[#!,9,9^9^99!]- 3, ..., 3, 2, 1 і назад до Nest[#!,9,9^9^99!].

R, випадковий період з очікуванням 2 ^ 19936-0,5

f=function(){
    options(scipen=50)
    body(f)[[4]]<<-sum(runif(623))
    0
    cat("f=")
    print(f)
}

Генератор випадкових чисел за замовчуванням R має період 2 ^ 19937-1 та рівнорозподіл у 623 послідовних вимірах. Таким чином, десь (але лише один раз) у його період буде 623-довгий вектор нулів. Коли ми потрапимо туди (і вирівняємося з початком послідовності), сума наступних 623 випадкових чисел U [0,1] буде дорівнює нулю, і ми повернемося до нашої початкової програми.

Зауважте, що програма з дуже високою ймовірністю пройде через той самий ненульовий стан кілька разів перед поверненням до нуля. Наприклад, найвірогіднішою є сума 311,5, і існує дуже багато способів, але RNG дозволяє періоду на 0 бути більшим, ніж період 311,5.

JavaScript, період 9,007,199,254,700,000

Не вигравати, але працювати із JavaScript над цим викликом було цікаво:

a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),1-1||90071992547e5)

Дотримується наступного циклу:

a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),1-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),9007199254700000-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),9007199254699999-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),9007199254699998-1||90071992547e5)
// etc...
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),3-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),2-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),1-1||90071992547e5)
a="a=%s;console.log(a,uneval(a),%.0f-1||90071992547e5)";console.log(a,uneval(a),9007199254700000-1||90071992547e5)
// and so on

Примітка. Ви можете зробити це на 18 байт коротше, при цьому видаливши лише ~ 0,08% балу, як-от так:

a="a=%s;console.log(a,uneval(a),%.0f-1||9e15)";console.log(a,uneval(a),1-1||9e15)

C, період 2 100 000 000 000

unsigned long long i;main(a){i=1;i*=21e8>i;printf(a="ungisned long long i;main(a){i=%d;i*=21e8>i;printf(a=%c%s%2$c,++i,34,a);}",++i,34,a);}

Виходячи з відповіді PHP (очевидно). Оновлюсь із поясненням, коли встигну.

C (gcc) , 66 байт, період 2 ^ 64

f(s){printf(s="f(s){printf(s=%c%s%1$c,34,s,%lu+1L);}",34,s,0+1L);}

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

2 ^ 64 числа доступні в цілому unsigned long. Тому період 2 ^ 64.

Пітон 2

Період: $9\uparrow((99\uparrow\uparrow(9\uparrow((99\uparrow\uparrow(9\uparrow((99\uparrow\uparrow(9\uparrow\uparrow5-1))\uparrow9)-1))\uparrow9)-1))\uparrow9)+1$

Дякуємо @Bubbler за збільшення періоду від $9\uparrow9\uparrow(99\uparrow\uparrow12)+1$ до тепер

b=0;s="print'b=%d;s=%r;exec s'%(-~b%eval('9**9'*eval('9**9'*eval('9**9'*9**9**9**9**9))),s)";exec s

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

У коді на b=0зміни , b=1то b=2і так далі , поки він не досягне b=decimal expansion of the periodпотім скидається назадb=0

Gol> <> , 70 байт, період 325883196621297064957600206175719056476804879488288708188003274919860959534770101079512433396348062803055739640225395758790852315876868469390603793729639715908136196505908165227136154287969475839017544811926036808089596209081885772040898530121921794489026069641113281250

Інші мудрі, відомі як справді великі (3.25E270)

":1=l8:*6+=S&Q~:'~'=Q~~'H#'||lPffXfX=?1:1=Q$~$~|:1)lPffXfX(Q?:|r2ssH##

Це насправді змінена версія відповіді, яку я поставив на ітератор 500 байтів

":1=l8:*6+=S&Q~:'~'=Q~~'H#'||//if last is equal to 1 and length is 71, delete the delete char, if the last char is '~', delete and push 'H#', which will later return to 'H##', completing the cycle!
lPffXfX=?1:1=Q$~$~|          //if length is equal to 15^15^15, then start delete process(append ascii one)
:1)lPffXfX(Q?:|              //if the last character is not 1 (the delete checker), and length is less than 15^15^15, duplicate the last value and append
r2ssH##                      //push the " to the front and output the whole thing

Сподіваюся, я правильно отримав рахунок, і помилок немає. Реального способу фактично обчислити це значення немає, воно теоретичне. Але людина, це величезна кількість !!!

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