從tcl中的兩個列表中保存公共元素並將它們放在結果列表中

Question

我有兩個包含整數的不同長度的列表。 列表中現在有重複項。 查看兩個列表時都有重複。 如

set ListA [list 3 4 9 1 2 10 6 ] 
set ListeB [list 34 43 9 12 2 10 61 88 23 48] 

是否有effektive快速的方法來創建一個新的列表，它僅包含現有的兩個原始列表中的號碼？在這種情況下：[9 2 10]

我不想使用嵌套循環，因爲列表可能很大。我首先想到了對它們進行排序，然後逐個比較它們。然而，只有在兩個列表的長度相同的情況下才有效。...

Answer 1

看到這個question和documentation here。這對Tcl 8.0有效，仍然可以工作在8.5（我很確定8.6）。

% package require Tcl 
% package require struct::set 

% set ListA [list 3 4 9 1 2 10 6 ] 
% set ListeB [list 34 43 9 12 2 10 61 88 23 48] 
% ::struct::set intersect $ListA $ListeB 
9 2 10