Куайн это программа , которая выводит его источник при запуске.

В этом задании Вы должны составить Фибоначчи-квин, вариант квин.

Что такое Фибоначчи-Куайн?

Fibonacci-quine - это программа, которая выводит модификацию источника по следующему правилу:

Первоначальный источник должен быть ...2.... Другими словами, источник должен содержать 2. (Почему 2? Если бы это был 1, никто бы не узнал, был ли это первый или второй, даже сама программа)

При запуске Вы должны вывести источник, но только конкретное число (На этом этапе 2) изменилось на следующее число последовательности Фибоначчи. Например, ...3.... То же самое касается вывода, вывода вывода и т. Д. Вы можете поддерживать целые числа до 2 ^ 32-1. Для целых чисел, превышающих этот предел, следующий вывод будет на ваше усмотрение.

Примечание ОП

Мне бы очень хотелось увидеть креативное решение для этого. Я не мог придумать единственного решения для этого, так как оба важных аспекта проблемы, фибоначчи и квина, не легки. Я буду ждать тогда!

Mathematica, 61 байт

ToString[#0 /. v:2 :> RuleCondition[Round[GoldenRatio v]]] & 

Обратите внимание, что есть пробел. Это функция quine, т. Е. Вышеприведенный код оценивается как безымянная функция, которая, при вызове, возвращает сам код в виде строки (с 2изменением на следующее число Фибоначчи).

Это было удивительно сложно получить работу. Основная идея состоит в том, чтобы взять саму функцию (с #0) и заменить число в этой функции следующим, использующим /. v:2 :> nextFib[v]. Тем nextFibне менее, на данном этапе не будет оцениваться, поэтому мы не получим новый номер в исходном коде. Поработав некоторое время, чтобы выяснить, как добиться немедленной оценки, я нашел этот замечательный пост на Mathematica.SE . «Стандартный» метод использует Withблок, который вызывает оценку, но второй ответ WReach содержит более короткую альтернативу с использованием недокументированного встроенного, RuleConditionкоторый также вызывает оценку.

Мы вычисляем следующее число Фибоначчи, используя тот факт, что отношение последовательных чисел примерно равно золотому отношению 1,618 ... и это с точностью до округления. Поэтому нам не нужно отслеживать последние два числа, и мы можем просто это сделать Round[GoldenRatio v]. Это никогда не потеряет точность, поскольку Mathematica GoldenRationявляется символическим значением и поэтому Roundвсегда может вычислить точный результат.

В итоге:

... #0 ... &

Безымянная функция, где #0ссылается на сам объект функции.

... /. v:2 :> ...

Найдите 2в дереве выражений функции (это, 2конечно, соответствует самому себе), вызовите ее vи замените на ...

... RuleCondition[Round[GoldenRatio v]]

... следующий номер Фибоначчи.

ToString[...]

И преобразовать полученное дерево выражений в его строковое представление.

CJam , 26 байтов

2{0X{_@+_W$>!}go;\;"_~"}_~

Попробуйте онлайн!

Вероятно, не совсем оптимально. Мы просто повторяем последовательность Фибоначчи до тех пор, пока значение не станет больше последнего и используем результат в качестве нового значения в начале программы.

Python 3 , 95 байт

a=b=1
while a<2:a,b=b,a+b
s='a=b=1\nwhile a<%i:a,b=b,a+b\ns=%r;print(s%%(b,s))';print(s%(b,s))

Попробуйте онлайн!

Очевидно , ответвление от CJam Мартина Эндера .

CJam , 20 байтов

2{\5mq)*)Y/io"_~"}_~

Попробуйте онлайн!

На самом деле , 19 байтов

2⌠è@fuF$+";ƒ"@+⌡;ƒ

Попробуйте онлайн!

Очевидно , ответвление от CJam Мартина Эндера .

Python 3 , 81 79 байт

s='s=%r;print(s%%(s,round(%s*(1+5**.5)/2)))';print(s%(s,round(2*(1+5**.5)/2)))

Попробуйте онлайн!
Использует золотое сечение для расчета следующего числа

Желе , 14 байт

“×Øp+.ḞṭØv”Ṙv2

Попробуйте онлайн! или проверьте все необходимые итерации .

Как это устроено

“×Øp+.ḞṭØv”Ṙv2  Main link. No arguments.

“×Øp+.ḞṭØv”     Set the left argument and return value to the string "×Øp+.ḞṭØv".
           Ṙ    Print a string representation of the return value and yield the
                unaltered return value.
            v2  Evaluate the return value as a Jelly program with left argument 2.
 ×Øp                Multiply the left argument by the golden ratio.
    +.              Add 0.5 to the resulting product.
      Ḟ             Floor; round the resulting sum down to the nearest integer.
        Øv          Yield the string "Øv".
       ṭ            Tack; append the result to the left to the result to the right.

Swift, 251 байт

Немного многословно для меня, но я не могу понять, как это сделать короче:

import Foundation;var n="\"";var u="\\";var s="import Foundation;var n=%@%@%@%@;var u=%@%@%@%@;var s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))";print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Ungolfed:

import Foundation
var n="\""
var u="\\"
var s="import Foundation;var n=%@%@%@%@;var u=%@%@%@%@;var s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))"
print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Моя проблема заключается в попытке получить цитаты вокруг новой версии s.

Чеддер , 136 байт

let b=1;for(let a=1;a<2;a=b-a){b+=a};let s='let b=1;for(let a=1;a<%i;a=b-a){b+=a};let s=%s;print s%b%@"39+s+@"39';print s%b%@"39+s+@"39

Попробуйте онлайн!

Javascript (ES6), 151 60 байт

Новая версия, кредиты @ Leaky Nun

x=i=>console.log('x='+x+';x('+(i*(5**.5+1)/2+.5|0)+')');x(2)

Старая версия :

x=i=>{var s=Math.sqrt(5),a=1;f=n=>{return Math.ceil((((1+s)/2)**n-((1-s)/2)**n)/s)};while(f(++a)<=i);console.log('x='+String(x)+';x('+f(a)+')');};x(2)

На основании этого .

постоянный ток , 35 байт

2[r9k5v1+2/*.5+0k1/n91PP93P[dx]P]dx

Версия с итерацией (56 байт):

2[rsP1dsN[lN+lNrsNdlP[s.q]s.=.lFx]dsFxlNn91PP93P[dx]P]dx

Swift, 235 байт

Это улучшенная версия Калеба «S ответа .

import Foundation;var n="\"",u="\\",s="import Foundation;var n=%@%@%@%@,u=%@%@%@%@,s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))";print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Java (OpenJDK 8) , 239 байт

interface a{static void main(String[]p){int a=1,b=1;for(;a<2;a=b-a)b+=a;String s="interface a{static void main(String[]p){int a=1,b=1;for(;a<%d;a=b-a)b+=a;String s=%c%s%c;System.out.printf(s,b,34,s,34);}}";System.out.printf(s,b,34,s,34);}}

Попробуйте онлайн!