Question

我有一个约10000个元素的排序列表，在弹出第一个元素之间，我会一次插入几个元素（1-10）。测量显示排序过程需要几毫秒（〜5），大概是因为lsort每次都从头开始进行排序。现在，它占用了大多数帧时间，因此我需要对此做些事情。

是否有一些技巧可以使大型列表与小型列表合并以提高效率？

用于解释上下文的代码：

while {true} {
  set work [lindex $frontier 0]
  set frontier [lreplace $frontier 0 0]
  if {[done $work]} break;
  set more_work [do work]; # about 1-10 elements, distribution is generally hard to predict
  lappend frontier {*}$more_work
  set frontier [lsort $frontier]; # when frontier is 10'000 elements time to sort is ~5ms
}

尽我所能实现Tcl proc进行类似于合并的排序，将发布发现。：-）

Answer 1

此proc将经过的时间从〜5ms减少到〜1.2ms：

proc merge_insert {sorted1 sorted2} {
  set res {}
  set prevloc 0
  foreach insert $sorted2 {
    # find location of next element to insert
    set nextloc [lsearch -bisect -integer -index 1 $sorted1 [lindex $insert 1]]
    # append up to next loc
    lappend res {*}[lrange $sorted1 $prevloc $nextloc] $insert
    # put read location just beyond the inserted element
    set prevloc [+ 1 $nextloc]
  }
  # append whatever tail is left
  lappend res {*}[lrange $sorted1 $prevloc end]
  return $res
}

排序的属性是每个排序元素的第二个元素中的整数，因此是-integer index 1和lindex $insert 1。

向排序列表中添加几个元素时，如何快速排序？

1 个答案: