R语言无限递归

某水一圣

1. mst<-function(x,x1,s,t){
   
2.         if(s==t){
   
3.                 x1[s]<-x[s]
   
4.         }
   
5.         else{
   
6.                 m<-(s+t)/2
   
7.                 x1<-mst(x,x1,s,m)
   
8.                 x1<-mst(x,x1,m+1,t)
   
9.                 x1<-merge(x,x1,s,m,t)
   
10.         }
    
11.         return(x1)
    
12. }

复制代码

这个程序报错，无限递归？？？

platinum3776

没有错，你再试一次

platinum3776

当s==t时，程序是没有错的，因为他只会执行if{  }内的命令，当s!=t时，命令就相当于整个三层的房子都没盖好却说要在二楼的大厅里先做个整栋房子的模型

DeeperBlue

if (s==t) { ... } 改成 if (s<=t) { ... }，另外，m=(s+t)/2要取整数。