自制队列优先级策略用于在R中预热模拟

# 创建一个队列
queue <- list()

# 定义任务的优先级
priority <- c(3, 1, 2)  # 优先级从高到低依次为3, 1, 2

# 将任务添加到队列中
enqueue <- function(queue, task, priority) {
  queue[[length(queue) + 1]] <- list(task = task, priority = priority)
}

enqueue(queue, "Task 1", priority[1])
enqueue(queue, "Task 2", priority[2])
enqueue(queue, "Task 3", priority[3])

# 按照优先级从高到低执行任务
while (length(queue) > 0) {
  # 找到优先级最高的任务
  highest_priority <- max(sapply(queue, function(x) x$priority))
  highest_priority_tasks <- which(sapply(queue, function(x) x$priority == highest_priority))
  
  # 执行任务
  for (task_index in highest_priority_tasks) {
    task <- queue[[task_index]]$task
    print(paste("Executing task:", task))
    
    # 模拟任务执行时间
    Sys.sleep(1)
    
    # 从队列中移除已执行的任务
    queue <- queue[-task_index]
  }
}