Para esse desafio, você deve criar um programa que utilize um número inteiro xe produza sua fonte xvárias vezes.

Regras

• Este é um codegolf, o objetivo é jogar golfe no seu programa para ter a menor quantidade de bytes

• Se você enviar uma função, ela deve assumir xcomo parâmetro e retornar ou imprimir todo o seu código xvárias vezes para STDOUT. O corpo da função também não deve estar vazio

• Se você enviar um lambda, não será necessário atribuí-lo a uma variável

• Aplicam-se restrições de brecha padrão .

• Programas vazios são proibidos

• Seu programa só precisa funcionar quando xum número inteiro inteiro é maior ou igual a 0

• Seu programa também pode não ler diretamente nenhuma parte do código-fonte

Python 2 , 50 bytes

Observe a vírgula à direita e a nova linha.

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

Experimente online!

Japonês , 14 bytes

"iQ ²pU"iQ ²pU

Experimente online!

Explicação

"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 bytes

{`{.*¶}{

A solução RProgN2 Loop funciona particularmente bem para isso!

{     } # 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.

Experimente online!

Mathematica, 40 33 bytes

Obrigado ao lanlock4 por economizar 7 bytes!

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

Função pura usando um argumento inteiro não negativo. ToString[#0]é a maneira padrão do Mathematica de acessar a definição atual da função pura; StringRepeat[..., #1]concatena (entrada) cópias dessa sequência juntas. Por exemplo,

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

rendimentos:

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

V , 11 bytes

ÀñAÀÑ~"qpx

Experimente online!

Esta é uma modificação extremamente trivial do padrão V extensível . Simplesmente usamos Àpara executá-lo arg1 vezes.

dc , 31 bytes

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

Experimente online!

Explicação:

[[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 bytes

Esta solução funciona se x=0. Há uma nova linha final à direita.

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

Experimente online

Python 2, 60 bytes (inválido)

Isso pressupõe isso x>=1, mas o OP esclareceu que xpode ser zero. Há uma nova linha final à direita.

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

Experimente online

Subcarga , 12 bytes

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

Experimente online!

Envio de função, porque o Underload não tem outra maneira de receber entrada. (O link TIO mostra o número 4 fornecido como entrada e adiciona código para imprimir a saída resultante).

Este é apenas um construtor universal de quine (a(:^)*):^, mais ~^("faça um número de cópias igual ao argumento").

Japonês , 14 bytes

*E îQi"*E îQi"

Experimente online!

Gelatina , 10 bytes

“;⁾vṾẋɠ”vṾ

Experimente online!

Como funciona

“;⁾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.

Marca GNU , 49 bytes

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

O Make juntará as cópias em um único espaço, por isso preciso incluir o caractere de espaço adicional no final e removê-lo com um stripintervalo para seguir fielmente o requisito.

Pitão, 17 bytes

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

Experimente online!

Extensão trivial para o bem conhecido jN*2]"jN*2]quine, mas provavelmente pode ser aproveitado

Betaload , 203 bytes

Novas linhas adicionadas para maior clareza:

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

Dei-me a restrição de que ele deveria ler do STDIN, e não do topo da pilha, como faria normalmente uma resposta do Underload. Também usei entrada decimal adequada, que compõe a maior parte do código.

Explicação:

Envolvo o programa em um invólucro de quine: (a(:^)*e ):^. Isso significa que todo o código dentro do Quine Wrapper terá o código-fonte do programa na parte inferior da pilha.

Para converter dígitos em um numeral normal da Igreja, uso a técnica de substituir cada dígito pelo código para multiplicar por 10 e adicionar esse dígito:

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

Há muita repetição aqui, então vamos empacotá-lo em um subprograma que pegará um número da Igreja do topo da pilha e o usará para construir a "sequência de dígitos:"

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

Coloquei isso em um novo ambiente para que ele possa ser acessado rapidamente:

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

Agora eu posso criar o código de substituição para R. Rusa os elementos principais da pilha para formar uma tabela de pesquisa para substituir uma sequência de STDIN pelo código Betaload. Funciona assim:

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

No entanto, podemos usar o subprograma que acabamos de criar para gerar os segmentos de código:

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

Quando Rexecutado, ele transforma a entrada em uma série de subprogramas que compõem um numeral da Igreja. Quando esse subprograma é executado, ele cria o número da Igreja no próximo elemento da pilha (0, que foi colocado anteriormente). Isso significa que, depois R^, o valor mais alto na pilha será o numeral da igreja. Mais ^uma vez, aplicamos o número da Igreja ao elemento final da pilha (o código-fonte do programa) para obter a resposta.

Curiosidade: eu tenho o MD dessa submissão há vários meses. Eu o mantive após entender mal uma pergunta (que parece que não consigo mais encontrar). Eu tive que desenterrá-lo da minha Lixeira para publicá-lo aqui.

05AB1E , 23 bytes

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

Experimente online!

Python 2 , 41 bytes

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

Experimente online!

Será que uma saída de meio hacky usando inputem vez de print, uma vez que printtem um bug estranho que envolve a impressão de uma nova linha quando não é suposto ... . Sai com um erro de EOF.

Explicação:

_="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 bytes

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

Experimente online!

Pitão, 13 bytes

*jN*2]"*jN*2]

Suíte de teste

O padrão Pyth quine mais dois *para a repetição.

Perl, 48 bytes

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

\47é a fuga octal para uma aspas simples ( '). É interpretado entre aspas duplas ( "), mas não entre aspas simples.

Javascript ES6, 27 37 bytes

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

Editar

+10 bytes se f=também deve ser exibido

f=

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

f(2);

CJam , 20 12 bytes

8 bytes economizados graças a Martin Ender

{"_~"+ri*}_~

Experimente online!

Exaplanação

{       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 bytes

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

Experimente online!

Nem golfe, como b64 quines tendem a ser.

Go , 257 254 bytes

Isso me dói.

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))}

Experimente online!

Microscript II, 22 bytes:

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

Microscript II, 20 bytes (mas tecnicamente inválido, pois acessa o código fonte de um bloco de código):

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

C, 144 116 bytes

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 bytes

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

C # (compilador interativo do Visual C #) , 115 bytes

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);}

Experimente online!

05AB1E , 17 bytes

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

Modificação do quine padrão 0"D34çý"D34çýadicionando ×?.

Experimente online.

Explicação:

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