从Tcl中的列表中删除重复的元素

Question

如何从Tcl列表中删除重复元素说:

list is like [this,that,when,what,when,how]

我用Google搜索并找到了,lsort unique但同样对我不起作用.我想从列表中删除.

Answer 1

以下适用于我

set myList [list this that when what when how]
lsort -unique $myList

这回来了

how that this what when

您可以将其存储在新列表中

set uniqueList [lsort -unique $myList]

Answer 2

您还可以使用字典,其中键必须是唯一的:

set l {this that when what when how}
foreach element $l {dict set tmp $element 1}
set unique [dict keys $tmp]
puts $unique

this that when what how

这将保留元素的顺序.