R-搜索数值序列

linear_search <- function(x, target) {
  for (i in seq_along(x)) {
    if (x[i] == target) {
      return(i)
    }
  }
  return(-1)  # 表示未找到
}

# 示例
sequence <- c(10, 20, 30, 40, 50)
target <- 30
index <- linear_search(sequence, target)
print(paste("元素", target, "在位置", index))

binary_search <- function(x, target) {
  low <- 1
  high <- length(x)
  while (low <= high) {
    mid <- floor((low + high) / 2)
    if (x[mid] == target) {
      return(mid)
    } else if (x[mid] < target) {
      low <- mid + 1
    } else {
      high <- mid - 1
    }
  }
  return(-1)  # 表示未找到
}

# 示例
sorted_sequence <- sort(c(10, 20, 30, 40, 50))
target <- 30
index <- binary_search(sorted_sequence, target)
print(paste("元素", target, "在位置", index))