Per questa sfida, è necessario creare un programma che accetta un numero intero xe genera la sua fonte xmolte volte.

Regole

• Questo è codegolf, l'obiettivo è quello di golf il tuo programma per avere il minor numero di byte

• Se si invia una funzione, la funzione deve assumere xcome parametro e restituire o stampare più volte l'intero codice xsu STDOUT. Anche il corpo della funzione non deve essere vuoto

• Se si invia un lambda, non è necessario assegnarlo a una variabile

• Si applicano le restrizioni standard sulle scappatoie .

• I programmi vuoti sono vietati

• Il tuo programma deve funzionare solo quando xun intero intero è maggiore o uguale a 0

• Il tuo programma potrebbe anche non leggere direttamente nessuna parte del suo codice sorgente

Python 2 , 50 byte

Nota la virgola finale e la nuova riga.

s='s=%r;print s%%s*input(),\n';print s%s*input(),

Provalo online!

Japt , 14 byte

"iQ ²pU"iQ ²pU

Provalo online!

Spiegazione

"iQ ²pU"iQ ²pU
"iQ ²pU"       # Take this string
        iQ     # Prepend a quote
           ²   # Double the string (= source code)
            pU # Duplicate input times

RProgN 2 , 8 byte

{`{.*¶}{

RPine N2 Loop Quine funziona particolarmente bene per questo!

{     } # A function literal
       {# Without a matching }, this loops back to the second instruction, which essentially runs the function. This is a bug, but it works to make the "Looping Quine".
 `{.    # Append the literal {, stringifying the function.
    *   # Multiply the stringified function by the input.
     ¶  # Terminate the program.

Provalo online!

Mathematica, 40 33 byte

Grazie a lanlock4 per aver salvato 7 byte!

StringRepeat[ToString[#0], #1] & 

Funzione pura che accetta un argomento intero non negativo. ToString[#0]è il modo standard di Mathematica per accedere alla definizione della funzione pura corrente; StringRepeat[..., #1]concatena (input) copie di quella stringa insieme. Per esempio,

StringRepeat[ToString[#0], #1] & [2]

rendimenti:

StringRepeat[ToString[#0], #1] & StringRepeat[ToString[#0], #1] & 

V , 11 byte

ÀñAÀÑ~"qpx

Provalo online!

Questa è una modifica estremamente banale del V quine estensibile standard . Usiamo semplicemente Àper eseguirlo arg1 volte.

dc , 31 byte

[[1-rd91Pn93P[dx]Pdx]s.rd0<.]dx

Provalo online!

Spiegazione:

[[1-rd91Pn93P[dx]Pdx]s.rd0<.]dx
[     91Pn93P[dx]P          ]dx  # Same old regular quine
 [1-rd            dx]s.rd0<.     # Loop until the counter is zero

Python 2, 70 byte

Questa soluzione funziona se x=0. C'è una sola nuova riga finale.

s='s=%r;exec"print%%r;"%%(s%%s)*input()';exec"print%r;"%(s%s)*input()

Provalo online

Python 2, 60 byte (non valido)

Ciò presuppone che x>=1, ma l'OP ha chiarito che xpuò essere zero. C'è una sola nuova riga finale.

s='s=%r;print(s%%s*input())[:-1]\n';print(s%s*input())[:-1]

Provalo online

Sottocarico , 12 byte

(a(:^)*~^):^

Provalo online!

Invio di funzioni, perché Underload non ha altro modo per ricevere input. (Il collegamento TIO mostra il numero 4 indicato come input e aggiunge il codice per stampare l'output risultante).

Questo è solo un costruttore universale di quine (a(:^)*):^, più ~^("fai un numero di copie uguale all'argomento").

Japt , 14 byte

*E îQi"*E îQi"

Provalo online!

Gelatina , 10 byte

“;⁾vṾẋɠ”vṾ

Provalo online!

Come funziona

“;⁾vṾẋɠ”vṾ  Main link. No arguments.

“;⁾vṾẋɠ”    Set the argument and the return value to the string ';⁾vṾẋɠ'.
         Ṿ  Uneval; yield '“;⁾vṾẋɠ”'.
        v   Eval ';⁾vṾẋɠ' with argument '“;⁾vṾẋɠ”'.
  ⁾vṾ           Yield 'vṾ'.
 ;              Concatenate '“;⁾vṾẋɠ”' and 'vṾ', yielding the source code.
      ɠ         Read an integer from STDIN.
     ẋ          Repeat the source code that many times.

GNU Make , 49 byte

$(foreach ,$(shell seq $1),$(strip $(value $0))) 

Make unirà le copie di un singolo spazio, quindi devo includere il carattere di spazio aggiuntivo alla fine e rimuoverlo con una via stripdi mezzo per seguire fedelmente il requisito.

Pyth, 17 byte

j*]jN*2]"j*]jN*2]

Provalo online!

Ampia estensione del jN*2]"jN*2]quine piuttosto noto , ma probabilmente può essere giocato a golf

Betaload , 203 byte

Newline aggiunti per chiarezza:

(a(:^)*(!()):#(}:(:)~^a((::*:**:*)*)~*(~*)*~(*)~^a*(*)*{)>(0)(!()){:^}(1)(){:^}(2)(:*){:^}(
3)(::**){:^}(4)(:*:*){:^}(5)(::*:**){:^}(6)(:*::**){:^}(7)(::*::***){:^}(8)(:*:*:*){:^}(9)(
::**::**){:^}R^^S):^

Mi sono dato la restrizione che deve leggere da STDIN piuttosto che dall'alto dello stack come farebbe normalmente una risposta di sottocarico. Ho anche usato un input decimale corretto, che costituisce la maggior parte del codice.

Spiegazione:

Avvolgo il programma in un involucro di quine: (a(:^)*e ):^. Ciò significa che tutto il codice all'interno del wrapper quine avrà il codice sorgente del programma nella parte inferiore dello stack.

Per convertire le cifre in un normale numero della Chiesa, utilizzo la tecnica di sostituzione di ogni cifra con il codice per moltiplicare per 10 e aggiungere quella cifra:

0 -> (::*:**:*)*
1 -> (::*:**:*)*(:)~*(*)*
2 -> (::*:**:*)*(::)~*(**)*
3 -> (::*:**:*)*(:::)~*(***)*

C'è molta ripetizione qui, quindi impacchettiamolo in un sottoprogramma che prenderà un numero Church dalla cima dello stack e lo useremo per costruire la "stringa di cifre:"

:(:)~^a((::*:**:*)*)~*(~*)*~(*)~^a*(*)*

Ho inserito questo in un nuovo ambiente in modo che sia possibile accedervi rapidamente:

#(}:(:)~^a((::*:**:*)*)~*(~*)*~(*)~^a*(*)*{)>

Ora posso creare il codice di sostituzione per R. Rutilizza gli elementi principali dello stack per formare una tabella di ricerca per sostituire una stringa da STDIN con il codice Betaload. Funziona così:

()
(0)(code for 0)
(1)(code for 1)
(2)(code for 2)
...
R

Tuttavia, possiamo usare il sottoprogramma che abbiamo appena creato per generare i segmenti di codice:

(0)(!()){:^}
(1)(){:^}
(2)(:*){:^}
(3)(::**){:^}
...

Quando Rviene eseguito, trasformerà l'input in una serie di sottoprogrammi che costruiscono un numero di Church. Quando questo sottoprogramma viene eseguito, crea quel numero Church sull'elemento successivo nella pila (0, che è stato posizionato in basso). Ciò significa che, dopo R^, il valore più alto nella pila sarà il numero della Chiesa. Abbiamo quindi ancora ^una volta di applicare il numero Church all'elemento finale nello stack (il codice sorgente del programma) per ottenere la risposta.

Curiosità: ho avuto il MD per questa presentazione per diversi mesi. L'avevo tenuto dopo aver frainteso una domanda (che non riesco più a trovare). Ho dovuto scavarlo dal mio cestino per pubblicarlo qui.

05AB1E , 23 byte

"34çìDJ¹.D»"34çìDJ¹.D»

Provalo online!

Python 2 , 41 byte

_="input('_=%r;exec _'%_*input())";exec _

Provalo online!

Fa un po 'hacky uscita utilizzando inputal posto di print, dal momento che printha uno strano bug che coinvolge la stampa di un ritorno a capo quando non dovrebbe ... . Esce con un errore EOF.

Spiegazione:

_="input('_=%r;exec _'%_*input())"; # Set _ to a string
exec _                              # Execute that string
input(                        )     # "print"
      '_=%r;exec _'%_               # The source code with _ formatted in
                     *input()       # Actual input many times

05AB1E , 27 25 byte

"34çs«DJ¹FD,"34çs«DJ¹FD,

Provalo online!

Pyth, 13 byte

*jN*2]"*jN*2]

Suite di test

Lo standard Pyth quine più due *per la ripetizione.

Perl, 48 byte

print"$_\47"x(2*pop)for'print"$_\47"x(2*pop)for'

\47è la fuga ottale per una singola citazione ( '). Viene interpretato tra virgolette doppie ( "), ma non tra virgolette singole.

Javascript ES6, 27 37 byte

_=>alert(`${f.name}=${f}`.repeat(_))

modificare

+10 byte se f=devono essere visualizzati anche

f=

_=>alert(`${f.name}=${f}`.repeat(_))

f(2);

CJam , 20 12 byte

8 byte salvati grazie a Martin Ender

{"_~"+ri*}_~

Provalo online!

Exaplanation

{       e# Begin a block literal:
 "_~"+  e#  Add whatever's on the stack to the beginning of the array ['_', '~'].
 ri*    e#  Repeat the resulting array a number of times equal to the input.
}       e# Close the block. Push it on the stack.
_~      e# Copy it and run it.

PHP, 194 byte

<?php $a="PD9waHAgJGE9IiMiOyRpPSRhcmd2WzFdO3doaWxlKCRpLS0pZWNobyBzdHJfcmVwbGFjZShjaHIoMzUpLCRhLGJhc2U2NF9kZWNvZGUoJGEpKTs=";$i=$argv[1];while($i--)echo str_replace(chr(35),$a,base64_decode($a));

Provalo online!

Non è affatto da golf, come tendono ad esserlo i b64.

Vai , 257 254 byte

Questo mi fa male.

package main;import(."fmt";."strings";."strconv";."os");func main(){s:="package main;import(.\"fmt\";.\"strings\";.\"strconv\";.\"os\");func main(){s:=%q;n,_:=Atoi(Args[1]);Print(Repeat(Sprintf(s,s),n))}";n,_:=Atoi(Args[1]);Print(Repeat(Sprintf(s,s),n))}

Provalo online!

Microscript II, 22 byte:

"v{lqp}sN*h"v{lqp}sN*h

Microscript II, 20 byte (ma tecnicamente non valido in quanto accede al codice sorgente di un blocco di codice):

{s""+`"~sN*"s`+}~sN*

C, 144 116 byte

i;main(a){for(i=getchar()-48;i--;)printf(a="i;main(a){for(i=getchar()-48;i--;)printf(a=%c%s%c,34,a,34);}",34,a,34);}

Python 3, 69 byte

s='s=%r\nx=int(input())\nprint(s%%s*x)\n'
x=int(input())
print(s%s*x)

C # (compilatore interattivo Visual C #) , 115 byte

n=>{var s="n=>{{var s={0}{1}{0};for(int i=0;i++<n;)Write(s,(char)34,s);}}";for(int i=0;i++<n;)Write(s,(char)34,s);}

Provalo online!

05AB1E , 17 byte

0"D34çý×?"D34çý×?

Modifica del quine predefinito 0"D34çý"D34çýaggiungendo ×?.

Provalo online.

Spiegazione:

0                   # Push 0 to the stack
                    #  STACK: [0]
 "D34çý×?"          # Push the string 'D34çý×?' to the stack
                    #  STACK: [0, 'D34çý×?']
          D         # Duplicate this string
                    #  STACK: [0, 'D34çý×?', 'D34çý×?']
           34ç      # Push '"' to the stack
                    #  STACK: [0, 'D34çý×?', 'D34çý×?', '"']
              ý     # Join the stack by this '"' delimiter
                    #  STACK: ['0"D34çý×?"D34çý×?']
               ×    # Repeat the string the (implicit) input amount of times
                    #  input = 2 → STACK: ['0"D34çý×?"D34çý×?0"D34çý×?"D34çý×?']
                ?   # Output to STDOUT without trailing newline