【算法代码】
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