Rosalind-递归的兔子

Rosalind——生物信息刷题库，用编程解决问题
问题链接

R

方案1

fibs <- function(n, k) {  a <- 1  b <- 1  for(i in 3:n){    c <- b+k*a    a <- b    b <- c  }  return(b)}

方案2

fibs <- function(n,k){  f=vector()  f[1]=f[2]=1  for(i in 3:n){    f[i]=f[i-1]+k*f[i-2]  }  #return(f)  return(f[n])}

方案3

fibs <- function(n,k){  if (n > 2){    return(fibs(n-1,k)+k*fibs(n-2,k))  }  else    return(1)}