使用分区函数在R中编写快速排序函数时遇到错误

我一直在用R编写此quicksort函数,试图结合我也创建的分区函数。但是,在比较p和r时,我一直遇到错误。它一直告诉我我的参数长度为0,但是,我以为我最初调用quicksort函数时声明了p和r对象。

partition <- function(input,p, r){
  pivot = input[r]
  while(p<r){
    while(input[p]<pivot) {p<-p+1}
    while(input[r]>pivot) {r<-r-1}
    if(input[p]==input[r]) {p<-p+1}
    else if (p<r){
      tmp <- input[p]
      input[p] = input[r]
      input[r] = tmp
    }
  }
 return(r)
}


quicksort<- function(input,p,r){

 if(p<r){
    j<- partition(input,p,r)
    input <- quicksort(input,p,j-1)
    input <- quicksort(input,j+1,r)

 }

}

input <- c(500,700,800,100,300,200,900,400,1000,600)
print("Input:")
print(input)
quicksort(input,1,10)
print("Output:")
print(input)
评论