이 문제를 해결하려면 정수 x를 사용하여 소스를 x여러 번 출력 하는 프로그램을 만들어야합니다 .

규칙

• 이것은 codegolf입니다. 목표는 프로그램이 가장 적은 바이트를 갖도록 골프를 치는 것입니다.

• 함수를 제출하면 함수 x는 매개 변수로 취해 코드 전체를 x여러 번 리턴하거나 STDOUT에 인쇄해야합니다 . 함수 본문도 비워 둘 수 없습니다

• 람다를 제출하면 람다를 변수에 할당 할 필요가 없습니다.

• 표준 허점 제한이 적용됩니다.

• 빈 프로그램은 금지되어 있습니다

• 프로그램은 x정수가 0보다 크거나 같은 경우에만 작동해야합니다.

• 프로그램이 소스 코드의 일부를 직접 읽지 못할 수도 있습니다.

파이썬 2 , 50 바이트

후행 쉼표와 줄 바꿈에 유의하십시오.

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

온라인으로 사용해보십시오!

apt , 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 루프 퀴인이 특히 효과적입니다!

{     } # 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 바이트

7 바이트를 절약 한 lanlock4 덕분에!

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 번 À실행 하기 위해 사용 합니다 .

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

파이썬 2, 70 바이트

이 솔루션은 경우에 작동합니다 x=0. 하나의 후행 줄 바꿈이 있습니다.

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

온라인으로 사용해보십시오

Python 2, 60 바이트 (잘못된)

이것은이라고 가정 x>=1하지만 OP는 x0 이 될 수 있음을 분명히했습니다 . 하나의 후행 줄 바꿈이 있습니다.

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

온라인으로 사용해보십시오

언더로드 , 12 바이트

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

온라인으로 사용해보십시오!

Underload에는 다른 입력 방법이 없기 때문에 함수 제출. (TIO 링크는 입력으로 주어진 숫자 4를 보여주고 결과 출력을 인쇄하기위한 코드를 추가합니다).

이것은 단지 보편적 인 quine 생성자입니다 (a(:^)*):^플러스 ~^( "사본의 수는 인수와 동일한 수 있도록").

apt , 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]quine 에 대한 사소한 확장 이지만 아마도 골프를 밟을 수 있습니다

베타로드 , 203 바이트

명확성을 위해 줄 바꿈이 추가되었습니다.

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

나는 Underload 응답이 일반적으로하는 것처럼 스택의 상단이 아닌 STDIN에서 읽어야한다는 제한을 스스로에게주었습니다. 또한 적절한 십진수 입력을 사용하여 대부분의 코드를 구성합니다.

설명:

나는 quine - 래퍼에서 프로그램을 마무리 : (a(:^)*와 ):^. 이는 quine wrapper 내부의 모든 코드가 스택의 맨 아래에 프로그램의 소스 코드를 갖음을 의미합니다.

숫자를 일반적인 교회 숫자로 변환하기 위해 각 숫자를 코드로 바꾸어 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은 이전에 위치)에 Church 숫자를 작성합니다. 이는 R^스택의 최상위 값이 교회 숫자가 됨을 의미합니다 . 그런 다음 ^스택의 마지막 요소 (프로그램 소스 코드)에 Church 숫자를 적용하여 답을 얻습니다.

재미있는 사실 : 몇 달 동안이 제출에 대한 MD를 받았습니다. 나는 더 이상 찾을 수없는 질문을 오해 한 후에 그것을 유지했다. 휴지통에서 발굴하여 여기에 게시해야했습니다.

05AB1E , 23 바이트

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

온라인으로 사용해보십시오!

파이썬 2 , 41 바이트

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

온라인으로 사용해보십시오!

사용하여 좀 해키 출력합니까 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 + 2 .

펄, 48 바이트

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

\47작은 따옴표 ( ') 의 8 진수 이스케이프입니다 . 큰 따옴표 ( ") 로 해석 되지만 작은 따옴표로 해석 되지는 않습니다.

자바 스크립트 ES6, 27 37 바이트

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

편집하다

f=표시해야 할 경우 +10 바이트

f=

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

f(2);

CJam , 20 12 바이트

Martin Ender 덕분에 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 quines가 경향이 있기 때문에 전혀 골프가 아닙니다.

Go , 257254 바이트

이것은 나를 아프게한다.

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

Microscript II, 20 바이트 (그러나 코드 블록의 소스 코드에 액세스 할 때 기술적으로 유효하지 않음) :

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

C, 144116 바이트

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 # 대화식 컴파일러) , 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