Wie findet man die Vereinigung von zwei Listen in tcl?

Question

Ich bin vertraut mit dem Finden der Schnittmenge von zwei Listen, aber ich wollte die Vereinigung von zwei Listen in tcl finden (während Duplikate zu beseitigen). Ich habe eine funktionierende Kopie dieses Codes, aber ich bin mir nicht sicher, ob es robust genug für irgendeine Art/Anzahl von Listen ist und suche daher nach einer besseren Lösung.

Jede Hilfe oder Ideen sind willkommen.

Answer 1

Wenn Sie behandeln Listen als Mengen, also sorgen Sie sich nicht um Ordnung wenn die Einzelteile, könnten Sie einfach die verbundene Liste sortieren:

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

Answer 2

tclx stellt eine Vereinigung Befehl:

% 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

Eine Möglichkeit, dass nicht Sortierung braucht ist Dictionary-Schlüssel als Sets zu verwenden:

% 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 

Dies hat den Vorteil der nicht n überhaupt zu sortieren, was bei großen Eingabesätzen sehr hilfreich sein kann.