R로 구현한 피보나치 수열

/*

 * http://sosal.kr/
 * made by so_Sal
 */

 R programming 세미나를 들으면서, 오랜만에 R을 사용해봤습니다.

10번째 피보나치수 구하기

n = 10

fibo1 <- 1

fibo2 <- 1

for (i in 3:n) {

tmp = fibo1+fibo2

fibo1 = fibo2

fibo2 = tmp

}

print(fibo2)

함수로 구현한 피보나치 수열

fibo <- function(n){

    fibo1 = 1

    fibo2 = 1

    for(i in 3:n){

        tmp = fibo1+fibo2

        fibo1 = fibo2

        fibo2 = tmp

    }

    return(fibo2)

}

> fibo(10)

[1] 55

recursive(재귀) 함수로 구현한 피보나치 수열

fibo <- function(n){

if(n ==1 || n==2 )

return(1)

return (fibo(n-1)+fibo(n-2))

}

> fibo(10)

[1] 55