Schreiben Sie zwei Codefragmente, die wir s_zero und s_one nennen werden.

Das Programm (l, n) besteht aus l Kopien von s_zero und s_one, die den Ziffern von n in Binärform entsprechen und links mit s_zero aufgefüllt sind.

Wenn zum Beispiel s_zero = foound s_one =, bardann ist
Programm (4, 0) = foofoofoofoo
Programm (4, 1) = foofoofoobar
Programm (4, 2) = foofoobarfoo
usw.

Programm (l, n) muss die Quelle des Programms (l, (n + 1) mod (2 ^ l)) drucken, um zu standardisieren. Im obigen Beispiel foobarfoofoomuss foobarfoobarbei der Ausführung gedruckt werden .

Ihre Punktzahl ist die Summe der Längen der Fragmente s_zero und s_one

CJam, 29 + 29 = 58 Bytes

Der 0-Code:

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

Der 1 Code:

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

Erläuterung

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 Bytes

Der 0-Code:

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

Der 1 Code:

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

Entschuldigen Sie das Expletive.

Ich bin sicher, ich kann dort noch ein paar Bytes rasieren. Ich werde eine Erklärung hinzufügen, sobald ich mich entscheide, dass ich nicht mehr die Mühe habe, Golf zu spielen.

Testen Sie es hier.

CJam, 45 + 45 = 90 Bytes

Der 0- Code:

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

Der 1 Code:

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

Erklärung bald.

Probieren Sie es hier online aus

GolfScript, 37 + 37 = 74 Bytes

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

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

Nicht ganz so kurz wie die CJam-Lösung von user23013 , aber ich dachte, ich würde dies trotzdem posten, wenn auch nur, um die Vielfalt der verwendeten Sprachen (geringfügig) zu erhöhen.

Meine Lösung basiert nicht direkt auf einer der vorhandenen Lösungen (und ich habe sie in der Tat nicht im Detail untersucht, da ich CJam immer noch nicht sehr gut lese), aber alle enthalten Varianten derselben grundlegenden Quine-Struktur ( {".~"}.~in GolfScript, {"_~"}_~in CJam). Das ist nicht wirklich überraschend, da es eine der effizientesten Möglichkeiten zu sein scheint, ein Quine mit einer beliebigen Nutzlast in diesen Sprachen zu schreiben.

Es gibt einige Teile dieses Codes, die ich nicht wirklich mag, und ich vermute, dass es möglich ist, dies weiter zu spielen, aber ich habe zu viel Zeit damit verbracht, wie es ist.