Для этой задачи вы должны создать программу, которая принимает целое число xи выводит свой источник xмного раз.

правила

• Это codegolf, цель состоит в том, чтобы в вашей программе было как можно меньше байтов

• Если вы отправляете функцию, функция должна принимать xв качестве параметра и либо возвращать, либо печатать весь код xмного раз в STDOUT. Тело функции также не должно быть пустым

• Если вы отправляете лямбду, вам не нужно присваивать ее переменной

• Стандартные ограничения лазейки применяются.

• Пустые программы запрещены

• Ваша программа должна работать только тогда, когда xцелое число больше или равно 0

• Ваша программа также не может напрямую читать какую-либо часть своего исходного кода

Python 2 , 50 байт

Обратите внимание на запятую и новую строку.

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

Попробуйте онлайн!

Japt , 14 байт

"iQ ²pU"iQ ²pU

Попробуйте онлайн!

объяснение

"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 байтов

{`{.*¶}{

RPGN2 Loop Quine работает особенно хорошо для этого!

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

Попробуйте онлайн!

Mathematica, 40 33 байта

Спасибо lanlock4 за сохранение 7 байтов!

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

Чистая функция, принимающая неотрицательный целочисленный аргумент. ToString[#0]стандартный метод Mathematica для доступа к определению текущей чистой функции; StringRepeat[..., #1]объединяет (вводит) копии этой строки вместе. Например,

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

выходы:

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

V 11 байт

ÀñAÀÑ~"qpx

Попробуйте онлайн!

Это чрезвычайно тривиальная модификация стандартного расширяемого V quine . Мы просто используем Àдля запуска arg1 раз.

постоянный ток , 31 байт

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

Попробуйте онлайн!

Объяснение:

[[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 байт

Это решение работает, если x=0. Есть один завершающий перевод строки.

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

Попробуйте онлайн

Python 2, 60 байт (неверно)

Это предполагает это x>=1, но ОП уточнил, что xможет быть ноль. Есть один завершающий перевод строки.

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

Попробуйте онлайн

Недогрузка , 12 байт

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

Попробуйте онлайн!

Передача функции, потому что у Underload нет другого способа получить ввод. (Ссылка TIO показывает число 4, указанное в качестве ввода, и добавляет код для печати полученного результата).

Это просто универсальный конструктор quine (a(:^)*):^, плюс ~^(«сделайте количество копий равным аргументу»).

Japt , 14 байт

*E îQi"*E îQi"

Попробуйте онлайн!

Желе , 10 байт

“;⁾vṾẋɠ”vṾ

Попробуйте онлайн!

Как это устроено

“;⁾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 байтов

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

Make будет объединять копии одним пробелом, поэтому мне нужно добавить дополнительный пробел в конце и удалить его с stripпромежуточным, чтобы точно выполнить требование.

Pyth, 17 байт

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

Попробуйте онлайн!

Тривиальное продолжение довольно известной jN*2]"jN*2]квинны, но, вероятно, ее можно сыграть в гольф

Betaload , 203 байта

Новые строки добавлены для ясности:

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

Я дал себе ограничение, что он должен читать из STDIN, а не из верхней части стека, как обычно бы получал ответ с недогрузкой. Я также использовал правильный десятичный ввод, который составляет большую часть кода.

Объяснение:

Я обертываю программу в обёртку от quine: (a(:^)*и ):^. Это означает, что весь код внутри оболочки quine будет иметь исходный код программы в нижней части стека.

Чтобы преобразовать цифры в обычную церковную цифру, я использую технику замены каждой цифры на код для умножения на 10 и добавления этой цифры:

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

Здесь много повторений, поэтому давайте скомпилируем его в подпрограмму, которая возьмет церковную цифру с вершины стека и использует ее для построения «строки цифр:»

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

Я поместил это в новую среду, чтобы к ней можно было быстро получить доступ:

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

Теперь я могу создать код замены для R. Rиспользует верхние элементы стека для формирования таблицы поиска, чтобы заменить строку из STDIN на код Betaload. Это работает так:

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

Однако мы можем использовать только что созданную подпрограмму для генерации сегментов кода:

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

Когда Rон запускается, он преобразует входные данные в серию подпрограмм, которые образуют церковную цифру. Когда эта подпрограмма выполняется, она создает эту церковную цифру на следующем элементе в стеке (0, который был размещен ранее). Это означает, что после R^этого верхним значением в стеке будет церковная цифра. Затем ^мы еще раз применим числительную церковь к последнему элементу в стеке (исходный код программы), чтобы получить ответ.

Забавный факт: у меня был доктор медицины для этого представления в течение нескольких месяцев. Я сохранил его после недопонимания вопроса (который я больше не могу найти). Я должен был выкопать это из моей Корзины, чтобы отправить это здесь.

05AB1E , 23 байта

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

Попробуйте онлайн!

Python 2 , 41 байт

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

Попробуйте онлайн!

Делает любопытный Hacky вывода , используя inputвместо того , чтобы print, так как printимеет странную ошибку , связанные с печатью новой строки , когда он не должен ... . Выход с ошибкой EOF.

Объяснение:

_="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 байтов

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

Попробуйте онлайн!

Pyth, 13 байт

*jN*2]"*jN*2]

Тестирование

Стандартный Pyth Quine плюс два *для повторения.

Perl, 48 байт

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

\47восьмеричный выход для одинарной кавычки ( '). Он интерпретируется внутри двойных кавычек ( "), но не внутри одинарных.

Javascript ES6, 27 37 байт

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

редактировать

+10 байт, если f=должны отображаться

f=

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

f(2);

CJam , 20 12 байтов

8 байтов сэкономлено благодаря Мартину Эндеру

{"_~"+ri*}_~

Попробуйте онлайн!

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 байта

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

Попробуйте онлайн!

Совсем не гольф, как обычно бывает на b64.

Go , 257 254 байта

Это причиняет мне боль.

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

Попробуйте онлайн!

Microscript II, 22 байта:

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

Microscript II, 20 байт (но технически недопустимый, поскольку он обращается к исходному коду блока кода):

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

C 144 116 байтов

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 байт

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

C # (интерактивный компилятор Visual C #) , 115 байт

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

Попробуйте онлайн!

05AB1E , 17 байт

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

Модификация по умолчанию квин 0"D34çý"D34çý , добавив ×?.

Попробуйте онлайн.

Объяснение:

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