tcl 8.4中的lsort索引返回错误索引

Question

例如我有

lsort -index {1 3} {{a {0 1 2 9 4}} {b {9 8 7 6 5}} {c {0 0 0 0 0}}}

我已尝试在tcl 8.4中返回错误索引的-index {1 3}。 我运行该代码的系统仍在使用TCL 8.4

如何使用类似{1 3}的lsort在tcl 8.4中工作

Answer 1

Tcl 8.4不支持-index选项的索引列表。如果你纯粹想要它用于Tcl 8.4，那么你可以使用-command选项。

% proc compare {a b} {
    return [string compare [lindex $a 1 3] [lindex $b 1 3]]
}
%
% lsort -command compare {{a {0 1 2 9 4}} {b {9 8 7 6 5}} {c {0 0 0 0 0}}}
{c {0 0 0 0 0}} {b {9 8 7 6 5}} {a {0 1 2 9 4}}
%