tclで2つのリストの和集合を見つける方法は？

Question

私は2つのリストの共通部分を見つけることに慣れていますが、tclで2つのリストの和集合を見つけたいと思いました（重複を排除しながら）。私はこのコードの作業コピーを持っていますが、どの種類/数のリストでも十分に堅牢であるとは確信していませんので、より良い解決策を探しています。

ご意見やご感想をお寄せください。

Answer 1

あなたはセットとしてリストを扱う場合は、アイテム場合は、順序を心配していないので、あなただけの参加リストを並べ替えることができます：

set union [lsort -unique [list {*}$list1 {*}$list2]] 

Answer 2

TCLXは、労働組合のコマンドが用意されています

% info patchlevel 
8.5.9 
% set a [list a b c] 
a b c 
% set b [list a d e] 
a d e 
% package require Tclx 
8.4 
% union $a $b 
a b c d e 
% 
% union 
wrong # args: should be "union lista listb" 
% 

Answer 3

% set a [list a b c] 
a b c 
% set b [list a d e] 
a d e 
% set d {} 
% foreach k $a { dict set d $k . } 
% foreach k $b { dict set d $k . } 
% set c [dict keys $d] 
a b c d e 

これはないn個の利点があります：ソートを必要としない

一つの方法は、セットとして辞書のキーを使用することです並べ替えを行うことができます。これは、大きな入力セットではかなり助けになります。