언어의 최대 재귀 수준 (MRD)이 있습니까?

귀하의 언어가 MRD = 500 이라고 가정 해 봅시다

재귀 깊이를 찾아 정확한 값을 출력하는 코드 작성

위의 경우 프로그램 (또는 기능)은 500 을 출력해야합니다

코드 골프 최단 답변이 승리합니다!

Mathematica, 15 바이트

$RecursionLimit

¯ \ _ (ツ) _ / ¯

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

파이썬 3 , 40 바이트

def f(x=2):
 try:f(x+1)
 except:print(x)

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

내장에서 읽지 않고. except 절은 오류가 발생하기 전에 한 수준으로 실행되기 때문에 1 대신 2에서 시작합니다. 물론 이것은 파이썬 2에서 더 짧은 바이트입니다.

자바 스크립트 (바벨) , 35 33 29 바이트

f=_=>do{try{-~f()}catch(e){}}

• Neil 덕분에 2 바이트가 절약되었습니다.

여기서 사용해 보거나 아래 스 니펫을 사용하여 eval대신 테스트하십시오 do.

console.log((f=_=>eval(`try{-~f()}catch(e){}`))())

port 포트, 24 바이트

본질적으로 동일한 별도의 솔루션으로 이것을 게시 할 가치는 없습니다.

Ox`try\{-~rp()}¯t®(e)\{}

그것을 테스트

설명

JavaScript 자체에는 재귀 제한이 없으며 인터프리터 (예 : 브라우저)에서 제한을 부과합니다. 여기서는 인터프리터로 언어를 정의하는 것이 좋습니다. 다른 요소 중에서도 한계는 브라우저 및 사용 가능한 메모리에 따라 다를 수 있으며 이는 수행중인 작업에 영향을받습니다. 다음 스 니펫은이 솔루션의 5 가지 버전을 사용한 마지막 요점을 보여줍니다. 마지막 두 테스트에서 볼 수 있듯이 Chrome에서는 최소한 작업 순서조차도 차이를 만들 수 있습니다.

console.log((f=(i=0)=>eval(`try{f(i+1)}catch(e){i}`))())
console.log((f=i=>eval(`try{f(-~i)}catch(e){i}`))())
console.log((f=(i=0)=>eval(`try{f(++i)}catch(e){i}`))())
console.log((f=_=>eval(`try{-~f()}catch(e){}`))())
console.log((f=_=>eval(`try{f()+1}catch(e){0}`))())
console.log((f=_=>eval(`try{1+f()}catch(e){0}`))())

따라서 우리는 상수 또는 방법으로 작업 할 편리 성이 없습니다. 대신, 우리는 결국 크 래핑하기 전에 계속해서 스스로를 호출하는 함수를 만들 것입니다. 가장 간단한 형태는 다음과 같습니다.

f=_=>f()

그러나 그것은 얼마나 많은 시간을 f스스로 호출 했는지에 대한 표시없이 오버플로 오류를 던지기 때문에이 도전에는 우리에게별로 유용하지 않습니다 . 우리는 오류를 방지 할 수 있습니다 try보내고 전화를 f계속하고 catch실패 할 때 보내고 :

f=_=>{try{f()}catch(e){}}

catch실제로는 아무것도하지 않기 때문에 오류 가 없지만 실패하기 전에 함수가 자신을 호출 한 횟수의 반환 값 은 없습니다. try / catch진술을 평가 해 봅시다 :

f=_=>eval(`try{f()}catch(e){}`)

이제 값이 반환되었습니다 (코드 골프이기 때문에 실제를 사용하여 몇 바이트를 절약했습니다 return). 값은하지만이며, 반환되는 undefined(가) 다시 때문에, catch아무것도하지 않습니다. 다행히 우리 -~undefined==1와 -~n==n+1하며,이 터지는에 의해 -~호출 앞에합니다 f, 우리는 본질적으로있어 -~-~ ... -~-~undefined서로, -~각 호출 앞에는 우리에게 횟수를 제공 f불렀다.

f=_=>eval(`try{-~f()}catch(e){}`)

Mathematica (내장 없음), 20 바이트

#0[#+1];&@1
%[[1,1]]

;의지를 생략하면 1+$IterationLimit(Mathematica가 기능을 테일 최적화하기 때문에). 또는 의 기본값을 0 //. x_ -> x + 1계산ReplaceRepeatedMaxIteration65536 (즉 , 위의 두 값보다 큼).

(이것은 결과로 평가되는 코드 스 니펫입니다. 그러나 다른 Mathematica 솔루션도 있습니다)

J, 8 바이트

1+$: ::]

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

그래서 실제로 입력없이 동사를 실행하는 방법을 모르고 약간의 검색 (개인 직감뿐만 아니라)이 불가능한 것처럼 보입니다. 그렇다면 어떻게해야하는지 알려 주시면 답변을 삭제하거나 업데이트하겠습니다. 그래도 동사에 입력이없는 것은 이치에 맞지 않습니다. 이것에 비추어, 주어진 기능은0 정수에 대한 기본 "빈"입력을 합니다. 0$0더 적합하다고 생각되면 빈 배열 ( ) 을 사용하도록 변경할 수 있습니다 .

편집 : OP는 함수가 0을 취할 수있게했습니다.

설명

1+$: ::]
     ::]  Assign adverse: if an error occurs, call ] (the identify function)
1+        Add one to
  $:      Recursive call to self

이는 스택 오류에 도달 할 때까지 입력에 1을 추가하여 (0 예상) 재귀 적으로 호출됩니다. 오류가 발생 ]하면 입력에 대해 불리한 ( -오른쪽 ID) ( 0)을 호출합니다 .

그건 그렇고, 공간이 필요 합니다.

파이썬 3 , 41 32 바이트

import sys
sys.getrecursionlimit

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

@FryAmTheEggman 덕분에 9 바이트가 절약되었습니다!

34 바이트

from sys import*
getrecursionlimit

35 바이트

__import__('sys').getrecursionlimit

마지막 2는 @totallyhuman 덕분입니다

C (GCC 리눅스 64) 180 133 바이트

@scottinet 덕분에 -4 바이트

c;f(){f(++c);}h(){exit(printf("%d",c));}main(){int b[512];f(sigaction(11,(int*[]){h,[17]=1<<27},sigaltstack((int*[]){b,0,2048},0)));}

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

대체 신호 스택 (최소 크기 MINSIGSTKSZ는 2KB, 플래그 SA_ONSTACK는 0x08000000) 과 함께 SIGSEGV (신호 11) 처리기를 설치 한 다음 인수없이 함수를 호출하고 스택이 오버플로 될 때까지 로컬 변수를 재귀 적으로 호출하지 않습니다. 최대 재귀 깊이는 아마도 ASLR로 인해 실행마다 다릅니다.

C의 최대 재귀 깊이는 물론 많은 요소에 달려 있습니다. 일반적인 64 비트 Linux 시스템에서 기본 스택 크기는 8MB이고 스택 정렬은 16 바이트이므로 간단한 기능을 위해 약 512K의 재귀 깊이를 얻습니다.

또한 위의 프로그램 -O2은 꼬리 호출 최적화 로 인해 작동하지 않습니다 .

Java 8, 131 51 48 47 43 바이트

int d;int c(){try{c();}finally{return++d;}}

@Nevay 덕분에 -80 바이트 . 나는 프로그램 대신에 방법을 시도했지만 실수로 가득 차있는 프로그램으로 끝났습니다. 이제는 방법입니다. @Neil
덕분 에 대신 -3 바이트 를 사용 합니다. @Nevay 덕분에 -5 바이트 .finallycatch(Error e)

설명:

여기에서 시도하십시오.

int d;                 // Depth-integer `d` on class-level (implicit 0)
int c(){               // Method without parameter and integer return-type
  try{c();}            //  Recursive call
  finally{return++d;}  //  Increase depth-integer `d` and always return it,
                       //   whether a StackOverflowError occurs or not
}                      // End of method

옥타브, 19 바이트

max_recursion_depth

용법:

octave:1> max_recursion_depth
ans =  256

R , 32 26 18 바이트

Sven Hohenstein 덕분에 -8 바이트 : $부분 일치를 수행하므로 expfull 대신 사용할 수 있습니다 expressions.

cat(options()$exp)

이 options명령을 사용하여 재귀 깊이, 즉 options(expressions=500)500 을 설정할 수도 있습니다 .

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

옥타브 , 25 22 20 바이트

Sanchises의 제안으로 2 바이트가 제거되었습니다.

@max_recursion_depth

값을 출력하는 익명 함수

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

zsh, 24 바이트

f(){f $[++i];f};set -x;f

온라인으로 사용해보십시오! (디버그 아래 참조)

bash, 24 바이트

f(){ f $[++i];};set -x;f

온라인으로 사용해보십시오! (디버그 아래 참조)

ksh93, 27 바이트

f(){ f $(($1+1));};set -x;f

온라인으로 사용해보십시오! (디버그 아래 참조)

대시, 27 바이트

f(){ f $(($1+1));};set -x;f

온라인으로 사용해보십시오! (tio 디버그 출력을 초과하여 자체 쉘에서 실행)

루아 , 52 바이트

f=load"b,e=pcall(f,(...or 3)+1)return b and e or..."

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

q / kdb +, 16 바이트

해결책:

{@[.z.s;x+1;x]}0

예:

/ solution
q){@[.z.s;x+1;x]}0
2000

/ without apply (try/catch)
q){.z.s x+1}0
'stack
@
{.z.s x+1}
2001

설명:

재귀를 시도하고 매번 x 씩 증가 시키십시오. 오류가 발생하면 x를 반환하십시오.

{@[.z.s;x+1;x]}0 / the solution
{             }0 / call lambda function with 0
 @[    ;   ; ]   / @[function;argument;catch]
   .z.s          / call self (ie recurse)
        x+1      / increment x
            x    / return x if function returns error

Excel-VBA, 26 바이트

?Application.MaxIterations

그 자체로는 재귀 수준이 아니라 실제로 Excel 워크 시트의 셀에 대한 최대 반복 횟수가 출력됩니다. 출력이 작성된 언어 이외의 언어와 관련이 있다고 가정하면 더 적합 할 수 있습니다.

Excel + Excel-Vba, 3 + 38 = 41 바이트

Function f:f=Application.MaxIterations

셀에서 호출 할 수 있으므로

=f(

내장되지 않은 VBA의 경우 :

Excel-VBA, 53 44 40 바이트

더 이상 변수를 초기화하거나 인쇄 할 필요가 없으므로 -9

다중 인쇄를 피하기 위해 코드 실행을 더 이상 종료 할 필요가 없으므로 -4

Sub s:[A1]=[A1]+1:On Error Resume Next:s

즉시 창에서 s를 호출하여 워크 시트의 A1 셀에 출력

(경고 추가, 이제 실행하는 데 시간이 걸립니다 Application.ScreenUpdating = False첫번째)

루아 , 45 37 바이트

x=2
f=load"x=x+1;f()"pcall(f)print(x)

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

x중간 통화 수를 알지 못해 초기화 할 값을 모르겠습니다 ...

클로저, 72 55 48 바이트

원자를 제거하여 -23 바이트

@madstap 덕분에 -7 바이트 사용하는 스위치 fn이상 def과 #(), 그리고 pr이상 println.

((fn f[i](try(f(inc i))(catch Error e(pr i))))0)

휴대폰에서 쓰고 테스트했습니다. Clojure REPL 앱의 깊이는 13087입니다.

기본 솔루션. SO가 발생 될 때까지 반복하여 각 반복 카운터를 증가시킵니다. 던져지면 카운터 값이 인쇄됩니다.

VBA, 모든 유형, 41 39 바이트

Function A:On Error Resume Next:A=A()+1

직접 실행 ?A()창에서 또는 워크 시트 함수로를 사용하여 호출하십시오 .

참고 : Excel-VBA에서 4613을 반환하지만 @Greedo의 답변은 내 시스템에서 3666을 반환합니다 (최대 값은 최대이어야 함). 분명히 Office 프로그램마다 다릅니다 (Access-VBA는 4622를 반환하고 Word-VBA 4615를 반환 함)

편집 : VBA는 parantheses를 자동 추가하므로 제거합니다.

Pyth-9 바이트

L.xyhbbyZ

위의 J 답변과 같이 실행할 수 있다면 마지막 바이트를 가져올 수 있기 때문에 7 바이트 yZ입니다.

여기에서 온라인으로 사용해보십시오 .

넷째, 48 바이트

한계에 도달 할 때까지 반복합니다.

: m 1+ recurse ;
: f 0 ['] m catch drop ; f .

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

Tcl , 18 바이트

puts [interp r {}]

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

recursionlimit ~로 축약 될 수있다 r

puts [interp recursionlimit {}]

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

Tcl , 49 바이트

proc R {i\ 1} {if [catch {R [incr i]}] {puts $i}}

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

루비, 39 바이트

END{p$.}
$stderr=$<
f=->{$.+=1;f[]}
f[]

오류 메시지를 억제하는 rescue것은 기본적으로 포착되지 않기 때문에 구조하는 것보다 약간 짧습니다.SystemStackError .

단항으로 출력 할 수 있다면 더 건전한 대답이 있습니다. nn 개의 연속 줄 바꿈 문자로 .

루비, 35 바이트

$stderr=$<
f=->{puts;$.+=1;f[]}
f[]

젤리 , 18 바이트

:( ^*

“¡żuẋ×HẒpƙ7"8!ƭ»ŒV

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

어떻게?

* Jelly 이후 내가 아는 한 :
(1) 자체 인터프리터를 설정하고 실행할 코드를 파싱하기 전에 Python 재귀 제한을 설정합니다. 및
(2) 파이썬 오류를 잡는 방법이 없습니다
중 하나를 안정적으로 재귀 제한을 평가하거나 실제로보다 다른 발견으로 값이 설정되었습니다 무엇 파이썬에게 그것을 밖으로 인쇄 할 수있는 방법이 있는지 잘 모르겠어요를 ( 그래도 수행 할 수 있는지 확인하고 싶습니다!) 그래서 코드는 다음과 같습니다.

“¡żuẋ×HẒpƙ7"8!ƭ»ŒV - Link: no arguments
“¡żuẋ×HẒpƙ7"8!ƭ»   - compression of "sys."+"get"+"recursion"+"limit"+"()"
                ŒV - evaluate as Python code