R에서 재귀 소작 알고리즘이 무한 재귀로 연결

Question

R에서 다음과 같은 python 함수를 구현하려고했습니다. 여기에서 주요 함수는 함수 내에서 호출하는 것입니다.

러시아어 농민 알고리즘

def rec_russian(a, b): 
    if a == 0: 
     return 0 
    if a % 2 == 0: 
     return 2 * rec_russian(a/2, b) 
    return b + 2 * rec_russian((a-1)/2, b) 

기능

rec_russian <- function(a, b) { 
    if(a == 0) {   
    return(0) 
    } else { 
    a %% 2 == 0 
    return(2 * rec_russian(a/2,b)) 
    } 
    return(b + 2 * rec_russian((a-1)/2,b)) 
    } 

rec_russian(3,4) 

하지만 다음과 같은 오류 받고 있어요의 R 표현의

재귀 에디션 :

Error: evaluation nested too deeply: infinite recursion/options(expressions=)? 
Error during wrapup: evaluation nested too deeply: infinite recursion/options(expressions=)? 

Answer 1

I을 너 생각해. 할 rying : if {…} else {…} : Does the line break between “}” and “else” really matters? 거기에 내 대답 :

rec_russian <- function(a , b){ 
    if(a == 0){ 
    return(0) 
    } else if (a %% 2 == 0) { 
    return(2*rec_russian(a/2,b)) 
    } else { 
    return(b + 2*rec_russian((a-1)/2,b)) 
    } 
} 
rec_russian(3,4) 
# 12 

또한 관련

R.

에서 제어 문 ?Control에 읽기를 가지고는이 게시물입니다. 그리고 쓸 수 있다는 것을 배울 것입니다

rec_russian <- function(a , b){ 
    if(a == 0){ 
    return(0) 
    } 
    else if (a %% 2 == 0) { 
    return(2*rec_russian(a/2,b)) 
    } 
    else { 
    return(b + 2*rec_russian((a-1)/2,b)) 
    } 
} 

Answer 2

rec_russian <- function(a , b){ 

    if(a == 0) return(0) 

    if (a %% 2 == 0) return (2*rec_russian(a/2,b)) 

    return (b + 2*rec_russian((a-1)/2,b)) 
} 
rec_russian(3,4)