按值排序Tcl dict

Question

我想知道是否有一种优雅的方式在Tcl中按值排序dict.

假设我有以下词典:

set d1 [dict create k1 10 k2 89 k3 1 k4 15 k5 20]
# Results in dict of form
# k1 => 10
# k2 => 89
# k3 => 1
# k4 => 15
# k5 => 20

现在我想对这本词典进行排序,以便我有:

# k3 => 1
# k1 => 10
# k4 => 15
# k5 => 20
# k2 => 89

我希望有类似Python的sorted().

Answer 1

如果你有Tcl 8.6(这使用了字典可以廉价地转换成列表的事实):

set sorted [lsort -integer -stride 2 -index 1 $d1]

如果您仍然使用8.5(可能是8.6仍然处于测试阶段),那么您需要使用以下几个步骤:

proc sortDictByValue {dict args} {
    set lst {}
    dict for {k v} $dict {lappend lst [list $k $v]}
    return [concat {*}[lsort -index 1 {*}$args $lst]]
}
set sorted [sortDictByValue $d1]

-stride如果你有这个选项,这个选项更容易使用.