HNT <- function(n,from='T1',to='T3',by="T2"){
if(n==1) cat("move",n,"from",from,"to",to,"\n")
if(n>1){
HNT(n-1,from,by,to)
cat("move",n,"from",from,"to",to,"\n")
HNT(n-1,by,to,from)
}
}
HNT(4)
HNT <- function(n,from='T1',to='T3',by="T2"){
if(n==1) cat("move",n,"from",from,"to",to,"\n")
if(n>1){
HNT(n-1,from,by,to)
cat("move",n,"from",from,"to",to,"\n")
HNT(n-1,by,to,from)
}
}
HNT(4)
本文标题:R递归实现汉诺塔——数据分析师不懂黑科技
本文链接:https://www.haomeiwen.com/subject/msgzmqtx.html
网友评论