이 128 개 언어 퀴 노우로 보로스 (다른 언어로 프로그램을 출력하는 프로그램, 또 다른 언어로 프로그램을 출력하는 프로그램 (125 개 언어), 원래 프로그램을 출력하는 프로그램)는 매우 인상적입니다. 그러나 불행히도 정적 반복 횟수가 있습니다.

프로그램을 출력하는 프로그램 (다른 언어로 번역 할 필요는 없지만 가능할 수 있음)을 작성하는 프로그램을 작성하십시오. 프로그램을 출력하고 프로그램을 출력하는 등의 작업이 반복 된 후 처음으로 원래 프로그램 을 출력합니다 (즉, 중간체 없음). 프로그램은 원본과 동일해야합니다. 그렇지 않으면 입력을 무시하는 quine이 작동합니다.) 여기서 n은 입력으로 제공된 음이 아닌 정수입니다. 입력은 원래 소스 코드의 숫자 일 수 없으며 (예 : x = <the value of n>프로그램 시작시) 다음 중 하나 여야합니다.

1. 명령 줄 인수로 전달
2. 표준 입력에서 읽기
3. 새 프로그램을 반환 / 출력하는 함수에 인수로 전달됩니다.

우로 보로스의 중간 단계의 경우 프로그램은 완전한 기능을하는 프로그램이거나 인수가없는 함수일 수 있습니다.이 함수는 호출되면 다음 프로그램을 반환 / 출력합니다.

소스 파일 자체를 읽거나 quine과 같은 내장을 사용할 수는 없습니다 (이 작업을 수행 할 수있는 방법은 없다고 생각합니다)

명확히하려면 n = 0프로그램이 자체 소스 코드를 출력해야합니다.

인 경우 n = 1프로그램은 다른 프로그램을 출력해야합니다. 그러면 원래 소스 코드가 출력됩니다.

등등...

가장 적은 바이트가 이깁니다!

편집하다:

"우로 보로스의 중간 단계에서 프로그램은 입력이없는 완전한 기능을하는 프로그램 이거나 인수가없는 함수일 수 있습니다." 프로그램이 체인에서 다음 것을 출력하면 입력 을 기다립니다. 괜찮지 만 프로그램은 원래 값 n을 필요로하지 않습니다.

05AB1E , 28 바이트

Kevin Cruijssen 덕분에 -4 바이트 + 수정

"34çìD«s<©di®ì"34çìD«s<©di®ì

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

설명

이것은 코드 앞에 인쇄하기 위해 나머지 숫자를 추가하여 작동합니다. 즉, 입력과 같은 방식으로 스택에 추가됩니다. "0"을 입력하는 경우에는 앞면에 0이 연결되지 않습니다.

룬 마법 , 39 바이트

"3X4+kSql1=c*?S:1-}C'LA-}!i:0)2*?~!'´@

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

보다 작거나 같은 입력이있는 경우 동일한 전술을 사용하여 05AB1E보다 4 바이트 더 짧을 수 있습니다 10. 그러나 임의로 큰 값을 지원해야하므로 더욱 복잡해집니다.

의 숫자 값은 n앞에 배치되고을 사용하여 연속 숫자 리터럴로 구문 분석됩니다 ´. "3X4+kSq기본 quine 코드입니다. 앞에 값이 없으면 스택 길이는 1 (퀴인) 만됩니다. 그렇지 않으면 2 l1=d*?는 처리 방법을 결정합니다.

• 값이 있으면 S:1-}'LA2+-}실행 : 스왑 가기 값, 로그 얻을, 스택 하단의 사본을 떠나, 그것을 복제, 1 빼기 ₁₀ 그 값 시간의 100 (값의 자신의 문자 길이의 결과로, 플러스 1 ´의 경우 문자열 끝에서 많은 문자를 제거합니다 ( 필요하지 않은 위치 와 잘못된 값이 있기 때문에 끝에서 효과적으로 잘림 ). C1 바이트보다 짧아서 2+같은 값이됩니다.

• 값이 없으면 입력에서 값을 읽습니다.

여하튼 : :0)2*?복제하고 0과 비교하십시오.

• 0이 아닌 경우를 누릅니다 ´.

• 0이면 값을 팝하십시오. 첫 번째 바이트를 실행하려고하면 숫자가 !아니며 즉시 동일한 위치에서 숫자 모드에서 빠져 나오기 2?때문에 바이트 대신 치트를 사용 하고 저장할 ´수 있습니다.

전체 스택을 위에서 아래로 인쇄하십시오.

자바 10, 145 바이트

n->{Long N=n;var s="n->{Long N=%s;var s=%c%s%2$c;return s.format(s,N>0?N-1+%2$cL%2$c:%2$cn%2$c,34,s);}";return s.format(s,N>0?N-1+"L":"n",34,s);}

온라인으로 시도 및 일부 반복의 출력을 참조 .

설명:

부정한 설명 :

• 는 var s포맷되지 않은 소스 코드를 포함
• %s 이 문자열을 자체에 넣는 데 사용됩니다. s.format(...)
• %c, %1$c및 34큰 따옴표의 형식을 지정하는 데 사용됩니다
• s.format(s,34,s) 다 합쳐

도전 과제 :

첫 번째 람다 함수는 long입력을 매개 변수로 사용합니다.

• 이것은 Long N=n;첫 번째 반복 에서 변수 로 설정됩니다 . 또는 Long N=%s;다음 반복 을 위해.
• 삼항 검사는 N>0?N-1+"L":"n"이를 채울 %s값 N-1으로 추가, L그것은 긴과에 대한 문자열로 변환을 이후 %s경우, N1. 경우보다 더 큰는 N대신에 0 (초기 입력했다 0거나이 '는 interquine-의 마지막 반복이다 loop '), 대신 %s초기 값으로 채 웁니다 n.

하스켈 , 195164 바이트

main=putStr(x++show x++"\na=")>>(getLine:cycle[pure$show$a-1])!!a>>=putStr
x="main=putStr(x++show x++\"\\na=\")>>(getLine:cycle[pure$show$a-1])!!a>>=putStr\nx="
a=0

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

이것은 매우 간단한 quine 기술을 사용합니다. a숫자로 설정된 변수로 수정합니다 . 만약 그 숫자가 제로 (시작에있는 경우) a이면 입력을 받고 입력 숫자 로 설정된 소스를 출력합니다 . a0이 아닌 경우 소스 a를 1 로 설정하여 출력합니다 . 이렇게 a하면 원래 소스를 출력하기 전에 0 으로 카운트 다운됩니다.

젤리 , 22 20 바이트

“Ṫ_1xẸƲ;Ṿ⁾v,⁾¥ ”v,¥ 

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

반복적 인 코드 호출 시도

$n$

R , 92 바이트

f=function(n=-1){gsub("\\s","",paste("f=",sub("-?\\d+",n-1,paste(deparse(f),collapse=""))))}

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

deparse부정 행위로 간주되는 경우 다음 대안이 있습니다.

R , 108 바이트

function(n=-1){s="function(n=%d){s=%s%s%2$s;sprintf(s,n-1,intToUtf8(34),s)}";sprintf(s,n-1,intToUtf8(34),s)}

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

펄 6 , 44 바이트

<say '<',S{\d+}=get||0-1,'>~~.EVAL'>~~.EVAL

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

표준 입력을 통해 입력을 받고 변경된 유일한 항목이 첫 번째 숫자 인 프로그램을 반환합니다. 이후의 각 프로그램은 그 수가 감소 된 것을 제외하고는 동일한 프로그램을 출력합니다.

C # (Visual C # 대화식 컴파일러) , 112 바이트

void f(int n=-1){var s="void f(int n={2}){{var s={0}{1}{0};Write(s,(char)34,s,n-1);}}";Write(s,(char)34,s,n-1);}

@NickKennedy 덕분에 많은 바이트를 절약했습니다!

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

Python 3.8 (시험판) , 60 56 55 53 바이트

lambda n=-1,s='lambda n=%d,s=%r:s%%(~-n,s)':s%(~-n,s)

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

Jo King 덕분에 -2 바이트

53 바이트 버전에서 Python 2 및 Python 3에서도 작동합니다.