R语言实现九连环等递归问题

【算法代码】

fac<-function(n){ #阶乘
  if(n==0 || n==1) return(1)
  else return(n*fac(n-1))
}

fibonacci<-function(n){ #斐波那契数列
  if(n==1 || n==2) return(1)
  else return(fibonacci(n-1)+fibonacci(n-2))
}

hanoi<-function(n){ #汉诺塔
  if(n==1) return(1)
  else return(2*hanoi(n-1)+1)
}

nineRing<-function(n){ #九连环
  if(n==1) return(1)
  else if(n==2) return(2)
  else return(2*nineRing(n-2)+nineRing(n-1)+1)
}

【测试样例】

> fac(5)
[1] 120

> fibonacci(12)
[1] 144

> hanoi(3)
[1] 7

> nineRing(9)
[1] 341