tcl脚本两个列表去重用什么命令

在TCL语言中，如果你想要从两个列表中去除重复元素，可以使用`set`命令结合`array`或者`lsort`和`unique`命令来实现。以下是两种常用的方法：

1. **使用`array merge`**：

# 定义两个列表
list1 {a b c d}
list2 {c e f g}

# 使用array将它们合并并自动去重
set uniqueList [array get [array merge $list1 $list2]]

此时，`uniqueList` 将包含 `a`, `b`, `d`, `e`, `f`, `g`。

2. **使用`lsort` 和 `unique`**：

# 合并并排序两个列表
set combinedList [lsort -increasing [concat $list1 $list2]]
# 删除重复项
set uniqueList [lrange $combinedList 0 end [expr {[llength $combinedList] / 2}]]

这里，`uniqueList` 的结果也是一样的。