按值对 Tcl 字典排序

发布于 2024-11-02 17:21:30 字数 390 浏览 0 评论 0原文

我想知道 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()的东西。

原文

I was wondering if there is an elegant way of sorting dict by value in Tcl.

Suppose I have a following 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

Now I want to sort this dictionary so that I have:

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

I was hoping there is something similar to Python's sorted().

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

十秒萌定你 2024-11-09 17:21:30

如果您有 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 选项会更容易使用。

There is, if you have Tcl 8.6 (this uses the fact that dictionaries can be converted cheaply to and from lists):

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

If you're still on 8.5 (likely; 8.6 is still in beta) then you need to use several steps:

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 option is easier to use, if you've got it.

回复收藏 0 原文

~没有更多了~