> <> , 49 바이트

'3d*}r0ff+0i:&0(?.~~a*&"0"-+60.&~:?!;1-&:o}&" "0.

코드의 절반은 입력을 문자열에서 int로 변환합니다. STDIN에서 읽은 단일 문자의 코드 포인트를 대신 사용할 수 있다면이 프로그램은 21 바이트에서 훨씬 짧습니다.

'3d*}ri:?!;1-&:o}&60.

설명

설명을 위해 두 번째 프로그램을 사용하겠습니다.

'닫는 따옴표가 발견 될 때까지 모든 문자를 밀어서 문자열 구문 분석을 시작합니다. 나머지 줄에는 '따옴표 가 없으므로 이니셜을 제외한 모든 문자 '가 스택에 푸시됩니다.

그러나> <>는 토 로이드 형 2D 언어이므로 줄이 끝나고 나면 명령 포인터가 시작 부분으로 돌아가서 '다시 치고 문자열 구문 분석을 중지 합니다. 결과적으로 초기 견적을 제외한 필요한 모든 것을 푸시했습니다.

3d*}ri:0=?;1-&:o}&60.

'ASCII 39이므로을 눌러 초기 견적을 푸시 3d* = 3*13 = 39합니다. 그런 다음 스택을 오른쪽 ( })과 반대로 ( r) 이동하여

.06&}o:&-1;?=0:ir}*d3'

이제 인쇄를 시작했습니다. i입력 문자로 읽지 만> <> 문자는 기본적으로 정수입니다. 첫 번째 프로그램에서는 iSTDIN의 숫자 문자열을 정수로 변환하는 루프로 바뀝니다.

그런 다음 다음 루프를 실행하여 첫 번째 N 문자를 인쇄합니다.

:?!;               If the top of the stack (N) is 0, then terminate
                   Otherwise...
1-                 Subtract 1 from N
&                  Move N to the register temporarily
:o                 Output the next char in the program
}                  Shift the stack right
&                  Put N back on the stack
60.                Repeat loop by jumping back to the first :

답변

{`"_~"+ri_@*<}_~

{`"_~"+ri_@*<}_~
{            }_~      "Put this code block on stack, take a copy and execute the copy";
 `                    "When executed, this block will the top element on stack to a string";
  "_~"                "Then put this string on stack";
      +               "Concat it to the the previous string on stack which ` created";
       ri             "Read an integer from STDIN";
         _@           "Copy the integer and put the concatinated string on top of stack";
           *          "Repeat the string input number of times";
            <         "Take the first input number of characters from the repeated string";

b=input();a=lambda x:(b*(2*(x+chr(34))+')'))[:b];print a("b=input();a=lambda x:(b*(2*(x+chr(34))+')'))[:b];print a(")

q=n=>('q='+q).repeat(n/39+1).slice(0,n)

q=n=>n>(l=(t='q='+q).length)?t+q(n-l):t.slice(0,n)

function q(n){return t=q+'',l=t.length,n>l?t+q(n-l):t.slice(0,n)}

($],quote)&'($],quote)&'

  ],quote                 NB. right arg prepended to quotation of right arg (quine)
 $                        NB. cyclically take left-arg characters from that
(        )&'($],quote)&'  NB. preload right arg with  ($],quote)&

{x#$_f}