Sorting 按值对Tcl dict排序
我想知道在Tcl中是否有一种按值对dict进行排序的优雅方法 假设我有一条如下的格言:Sorting 按值对Tcl dict排序,sorting,dictionary,tcl,Sorting,Dictionary,Tcl,我想知道在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 #
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()的东西。如果您有Tcl 8.6(这利用了字典可以廉价地与列表进行转换的事实): 如果您仍然使用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
选项使用起来更方便。谢谢!在8.6中,lsort的-stride选项看起来非常有用。匿名用户评论:我认为应该添加-integer
,否则这些值会按字典顺序排序。例如:set sorted[lsort-integer-stride 2-index 1$d1]
@Anne:这限制了“sorted”的含义;提问者对他们的意思不是很准确。
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]