Напишіть програму довжиною n, яка виводить іншу програму, довжина якої - наступне число Фібоначчі після n. Нова програма повинна зробити те ж саме - вивести іншу програму, довжина якої - наступне число Фібоначчі тощо.
Сама по собі n (початкова довжина програми) не повинна бути числом Фібоначчі, хоча було б добре, якби це було.

Найкоротший код виграє.

Ніяких зовнішніх ресурсів, лише ASCII, не потрібен безкоштовний компілятор / перекладач.
Якщо ваш результат закінчується новим рядком, він також враховується.

CJam, 26 23

Я щойно спробував твою мову.

7{9\@5mq)2/*')*\"_~"}_~

9 є (22*0.618 + 0.5 - 1)/1.618 + 1.

Він обчислює власну довжину *1.618замість того, щоб багаторазово додавати два числа. У першій версії він заповнить результат перед тим, {як подобається 1))))))))), який сам рахує ці символи. Скажіть результат n. Загальна довжина є n+22, а нова довжина раніше {повинна бути (n+22)*1.618-22округлою. Зменшіть його на одиницю, щоб підрахувати кількість )s. Тоді вона буде приблизно дорівнює (n+8)*1.618.

Старіша версія:

-3{1\@5mq)2/*E+')*\"_~"}_~

Число 14 є 24*0.618 + 0.5 - 1.

Python 2, 160 байт

s='s=%s;c=s;l=len(s%%c)+4;a,b=1,1\nwhile b<l:a,b=b,a+b\nc+="1"*(b-l-1);print s%%`c`;a=1'
c=s
l=len(s%c)+4
a,b=1,1
while b<l:a,b=b,a+b
c+="1"*(b-l-1)
print s%`c`

Це справжня квазікіне; він не читає власного джерела, але генерує його. Перший вихід (має зворотний новий рядок):

s='s=%s;c=s;l=len(s%%c)+4;a,b=1,1\nwhile b<l:a,b=b,a+b\nc+="1"*(b-l-1);print s%%`c`;a=111111111111111111111111111111111111111111111111111111111111111111111';c=s;l=len(s%c)+4;a,b=1,1
while b<l:a,b=b,a+b
c+="1"*(b-l-1);print s%`c`;a=1

Друге:

s='s=%s;c=s;l=len(s%%c)+4;a,b=1,1\nwhile b<l:a,b=b,a+b\nc+="1"*(b-l-1);print s%%`c`;a=1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111';c=s;l=len(s%c)+4;a,b=1,1
while b<l:a,b=b,a+b
c+="1"*(b-l-1);print s%`c`;a=111111111111111111111111111111111111111111111111111111111111111111111

_{Правка: На жаль. Забув змінити рядок, коли я перейшов з ;s на 1s, тому другий вихід виводив зайві крапки з комою (які Python не підтримує). Виправлено}

CJam, 41 31 байт

{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~

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

Вихідні дані

$ cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~'); echo
{1$+S@]_1=4+1$`,-S*"2$~"}34 21 2$~
$ cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~') | wc -c
34
$ cjam <(cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~')); echo
{1$+S@]_1=4+1$`,-S*"2$~"}55 34                      2$~
$ cjam <(cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~')) | wc -c
55
$ cjam (cjam <(cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~'))); echo
bash: syntax error near unexpected token `cjam'
$ cjam <(cjam <(cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~'))); echo
{1$+S@]_1=4+1$`,-S*"2$~"}89 55                                                        2$~
$ cjam <(cjam <(cjam <(echo '{1$+S@]_1=4+1$`,-S*"2$~"}21D2$~'))) | wc -c
89

Як це працює

{       "                                                   {…} 21 13                     ";
  1$+   " Duplicate the higher number and add.              {…} 21 34                     ";
  S@    " Push a space and rotate the lower number on top.  {…} 34 ' ' 21                 ";
  ]     " Wrap the stack into an array.                     [ {…} 34 ' ' 21 ]             ";
  _1=   " Push the second element of the array.             [ {…} 34 ' ' 21 ] 34          ";
  4+    " Add 4 to it.                                      [ {…} 34 ' ' 21 ] 38          ";
  1$`,  " Push the length of the stringified array.         [ {…} 34 ' ' 21 ] 38 37       ";
  -S*   " Subtract and push that many spaces.               [ {…} 34 ' ' 21 ] ' '         ";
  "2$~" " Push the string '2$~'.                            [ {…} 34 ' ' 21 ] ' ' '2$~'   ";
}       "                                                   {…}                           ";

21D     " Push 21 and 13.                                   {…} 21 13                     ";
2$~     " Copy the code block an evaluate.                  [ {…} 34 ' ' 21 ] ' ' '2$~'   ";

Пітон - 89

g="%(s,b,a+b);print o.ljust(b-1)";s,a,b="s,a,b=%r,%i,%i;o=s%"+g,89,144;exec("o=s"+g)#####

Мій ідеальний підрахунок персонажів минув . ; _; Завдяки TheRare за вказівку на річ нової лінії та Quincunx за те, що вони запропонували мені використовувати Python 2, голивши 2 символи.

EDIT : Тепер просто використовується більше #s замість 1s; На 12 символів коротше.

ЕДИТ 2 : 94 символів! Усунуто деяке повторення. >: 3

EDIT 3 : Коротша альтернатива перевидання для Python 2.

EDIT 4 : Вихід є символом коротшим.

EDIT 5 : Використання %rдля скорочення було взято з відповіді на інше питання @primo.

РЕДАКТ 6 : Коротше. : D

Ось версія Python 3:

g="%(s,b,a+b);print(o.ljust(b-1))";s,a,b="s,a,b=%r,%i,%i;o=s%"+g,89,144;exec("o=s"+g)####

Ця відповідь схожа на відповідь @Quincunx.

JavaScript, 94

(function q(w,e){return ('('+q+')('+e+','+(s=w+e)+')'+Array(s).join('/')).substr(0,s)})(55,89)

На основі відомої JavaScript Quine це повертає майже ту саму функцію, за якою слідує лише кількість косої риси, так що вона підсумовує до 144, що є наступним числом Фібоначчі після N. І так далі ...

N - не число Фібоначчі, але це було лише «приємно мати».

Математика

({0};
 With[{n = Ceiling[ InverseFunction[Fibonacci]@LeafCount@#0 ], l = Length[#0[[1, 1]]]},
    #0 /. {0..} -> ConstantArray[0, Fibonacci[n+1] - LeafCount[#0] + l]
 ]) &

Це дуже просто реалізація (тобто тут ніякої затуманення). Це анонімна функція, яка повертається за допомогою трохи прокладки для досягнення правильної довжини. Mathematica є гомоніконічним: код і дані представлені як вирази Mathematica, що дозволяє реально легко змінювати / генерувати код на льоту. Це також означає, що кількість символів не є природною мірою довжини коду. Розмір виразності ( "кількість листя" ) становить. Ця версія заснована на підрахунку листків як мірі довжини коду.

Якщо ми призначимо цю анонімну функцію змінній f(щоб я міг показати, що відбувається в читабельному вигляді), і продовжувати називати її 1, 2, 3, ... рази, щоразу вимірюючи довжину повернутого значення, це те, що ми отримуємо:

In[]:= f // LeafCount
Out[]= 42

In[]:= f[] // LeafCount
Out[]= 89

In[]:= f[][] // LeafCount
Out[]= 144

In[]:= f[][][] // LeafCount
Out[]= 233

Щодо вимоги безкоштовного перекладача: Mathematica безкоштовна для Raspberry Pi. В іншому випадку цей код повинен бути простим для порту до Mathics (відкритий код) . Єдине, чого не вистачає в Mathics, це те InverseFunction, що можна замінити як тут (але я лінивий :).

Python 3.8 (передвипуск) , 78 байт

p,c=55,89;exec(s:="print((a:=f'p,c={c},{p+c};exec(s:=%r)'%s)+'#'*(c-len(a)))")

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

Python 2 , 79 байт

p,c,s=55,89,"a='p,c,s=%d,%d,%r;exec s'%(c,p+c,s);print a+'#'*(c-len(a))";exec s

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