我想知道 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()的东西。
如果您有 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]
The -stride
如果您有的话,选项会更容易使用。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)