这个堆这么建不起来？

某水一圣

1. xh<-rnorm(50)
   
2. xh<-abs(xh)
   
3. hs<-function(x){
   
4.         for(i in length(x)/2:1){
   
5.                 x<-ha(x,i,length(x))
   
6.         }
   
7.         return(x)
   
8. }
   
9. ha<-function(x,n,m){
   
10.         k<-n
    
11.         f<-x[n]
    
12.         if(2*n<=m && x[2*n]>f){
    
13.                 k<-2*n
    
14.                 f<-x[2*n]
    
15.         }
    
16.         if(2*n+1<=m && x[2*n+1]>f){
    
17.                 k<-2*n+1
    
18.                 f<-x[2*n+1]
    
19.         }
    
20.         if(k!=n){
    
21.                 t<-x[n]
    
22.                 x[n]<-x[k]
    
23.                 x[k]<-t
    
24.                 x<-ha(x,k,m)
    
25.         }
    
26.         return(x)
    
27. }

复制代码

结果和原数组一样
是hs函数调用数组xh