[ACCEPTED]-Sort Tcl dict by value-tcl
Accepted answer
There is, if you have Tcl 8.6 (this uses 5 the fact that dictionaries can be converted 4 cheaply to and from lists):
set sorted [lsort -integer -stride 2 -index 1 $d1]
If you're still 3 on 8.5 (likely; 8.6 is still in beta) then 2 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 1 is easier to use, if you've got it.
Source:
stackoverflow.com
More Related questions
Cookie Warning
We use cookies to improve the performance of the site. By staying on our site, you agree to the terms of use of cookies.