如何在Tcl 8.6中按多索引对值为列表的字典排序？

你需要对字典按值列表的第一个元素排序，若该元素相同则按第二个元素排序，最终返回排序后的键序列。原代码仅指定单一排序索引，无法处理多字段排序的场景。

解决方法 #

使用Tcl 8.6的lsort命令结合-sortby选项，构造包含两个排序字段的键列表，让lsort自动按多字段优先级排序：

完整代码示例 #

# 初始化示例字典（注意：Tcl列表元素以空格分隔，此处修正了示例中的逗号格式）
set dict_name {
    1 {10 20 30}
    2 {10 25 45}
    3 {10 5 15}
    4 {2 12 36}
    5 {7 16 9}
}

# 按值列表的第一个、第二个元素排序
set sorted [lsort -stride 2 -integer -sortby {
    apply {pair} {
        lassign $pair key val
        # 返回用于排序的键列表：[第一个元素，第二个元素]
        list [lindex $val 0] [lindex $val 1]
    }
} $dict_name]

# 提取排序后的键序列
set get_keys [dict keys $sorted]
puts $get_keys

代码解释 #

• -stride 2：将字典拆分为一个个键值对（每2个元素为一组）
• -integer：指定按整数规则排序，避免字符串排序的逻辑误差
• -sortby：传入匿名函数apply，对每个键值对提取值列表的前两个元素，返回一个排序键列表。lsort会先比较列表的第一个元素，若相同则自动比较第二个元素，完全匹配你的排序需求

输出结果 #

运行代码后，get_keys的输出为：

4 5 3 1 2

对应的排序后字典内容与你预期的一致：

4: {2 12 36}
5: {7 16 9}
3: {10 5 15}
1: {10 20 30}
2: {10 25 45}

内容的提问来源于stack exchange，提问作者Sourav Das