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

Правила

• Це кодогольф, мета полягає в тому, щоб у вашій програмі було найменше байтів

• Якщо ви подаєте функцію, функція повинна братись 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 байт

{`{.*¶}{

Особливо добре для цього працює цикл RProgN2 Loop!

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

Спробуйте в Інтернеті!

Математика, 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-квінки . Ми просто використовуємо Àдля запуску arg1 разів.

DC , 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 , 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, а не з верхньої частини стека, як зазвичай відповідь Underload. Я також використав правильний, десятковий ввід, який складає більшу частину коду.

Пояснення:

Я загортаю програму в обгортку 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*}_~

Спробуйте в Інтернеті!

Пояснення

{       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 лайкам.

Ідіть , 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))}

Спробуйте в Інтернеті!

Мікроскрипт II, 22 байти:

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

Мікроскрипт 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);}

Пітон 3, 69 байт

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

C # (Visual C # Interactive Compiler) , 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çý×?

Модифікація за замовчуванням quine 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