Напишите два фрагмента кода, которые мы будем называть s_zero и s_one.

Программа (l, n) состоит из l копий s_zero и s_one, соответствующих двоичным цифрам n, дополненных слева s_zero.

Например, если s_zero = fooи s_one =, barто
программа (4, 0) = foofoofoofoo
программа (4, 1) = foofoofoobar
программа (4, 2) = foofoobarfoo
и т. Д.

Программа (l, n) должна распечатать исходный текст программы (l, (n + 1) mod (2 ^ l)). В приведенном выше примере foobarfoofooнеобходимо печатать foobarfoobarпри выполнении.

Ваша оценка - это сумма длин фрагментов s_zero и s_one

CJam, 29 + 29 = 58 байт

Код 0:

0{"_~"]]z(3\+2b(2b2>a\+z~[}_~

Код 1:

1{"_~"]]z(3\+2b(2b2>a\+z~[}_~

объяснение

0                       " Push the current bit. ";
{"_~"                   " The basic quine structure. ";
    ]                   " Make an array of the current bit, the function and _~.
                          That is the code fragment itself. ";
    ]                   " Make an array of all code fragments in the stack. ";
    z(                  " Extract the array of the bits. ";
    3\+2b(2b2>          " Convert from base 2, decrease by one and convert back,
                          keeping the length. ";
    a\+z                " Put the bits back to the original position. ";
    ~                   " Dump the array of code fragments back into the stack. ";
    [                   " Mark the beginning position of the array of the next code fragment. ";
}_~

CJam, 47 + 47 = 94 байта

Код 0:

{`"_~"+]:+T2*0+:T)\AsSerS/_,(@2Y$#+2bU@->]zs}_~

Код 1:

{`"_~"+]:+T2*1+:T)\AsSerS/_,(@2Y$#+2bU@->]zs}_~

Извините за ругательство.

Я уверен, что смогу сбрить там несколько байтов. Я добавлю объяснение, как только решу, что больше не буду беспокоиться об игре в гольф.

Проверьте это здесь.

CJam, 45 + 45 = 90 байт

Код 0 :

{`]W=L0+:L,Ua*L2b)2b+L,W*>\f{X$!s/\s*"_~"}}_~

Код 1 :

{`]W=L1+:L,Ua*L2b)2b+L,W*>\f{X$!s/\s*"_~"}}_~

Объяснение в ближайшее время.

Попробуйте онлайн здесь

GolfScript, 37 + 37 = 74 байта

0{`".~"+:q;]-2%1\{1$^.@&q@}%\;-1%~}.~

1{`".~"+:q;]-2%1\{1$^.@&q@}%\;-1%~}.~

Не так коротко, как в C23am-решении user23013 , но я решил, что в любом случае опубликую это, если только (незначительно) увеличить разнообразие используемых языков.

Мое решение не основано непосредственно на каком-либо из существующих решений (и, на самом деле, я не изучил их подробно, так как я до сих пор не очень хорошо читаю CJam), но все они имеют варианты одной и той же базовой структуры quine ( {".~"}.~в GolfScript, {"_~"}_~в CJam). Это на самом деле не очень удивительно, так как кажется, что это один из наиболее эффективных способов написать квин с произвольной полезной нагрузкой на этих языках.

В этом коде есть несколько частей, которые мне не очень нравятся, и я подозреваю, что это возможно и дальше, но я потратил слишком много времени на это, как есть.