R语言冒泡排序代码中的错误消息

Question

我在 R 语言上做了一些编程工作来进行冒泡排序。有时它可以完美运行而没有任何错误消息，但有时会显示“if (x[i] > x[i + 1]) { 中的错误：参数长度为零”。任何人都可以帮我检查它有什么问题吗？我在下面附上了我的代码

example <- function(x) {
  n <- length(x)
  repeat {
    hasChanged <- FALSE
    n <- n - 1 
    for(i in 1:n) {
      if ( x[i] > x[i+1] ) {
        temp <- x[i]
        x[i] <- x[i+1]
        x[i+1] <- temp
        hasChanged <- TRUE
        cat("The current  Vector is", x ,"\n")
      }
    }
    if ( !hasChanged ) break;
  }
}

x <-sample(1:10,5)
cat("The original Vector is", x ,"\n")
example(x)

Answer 1

发生错误是因为您正在迭代减少n。根据原始向量的顺序（或缺少顺序），n 在最后一次更改后可以达到 1 的值。在这种情况下，在下一个迭代步骤中进一步减少n 会解决未定义的值x[0]。

只要稍加修正，您的代码就可以正常工作，而不会出现错误消息。换行试试

if ( !hasChanged ) break;

与

if ( !hasChanged | n==1 ) break

基本上，您有两个终止条件：在上一次迭代中没有任何更改或n 等于一。在这两种情况下，进一步的迭代都不会改变向量，因为它已经被排序了。

顺便说一句，在 R 编程中，命令末尾不需要分号。解释器可以容忍/忽略它，但它会使代码混乱，不被认为是好的编程风格。

希望这会有所帮助。