Jak połączyć dwa zestawy ciągów w Perl 6?

Question

Czy istnieje metoda idiomatyczna lub wbudowana metoda na concatenate dwóch Sets ciągów?

Oto, czego chcę:

> my Set $left = <start_ begin_>.Set 
set(begin_ start_) 
> my Set $right = <end finish>.Set 
set(end finish) 
> my Set $left_right = ($left.keys X~ $right.keys).Set 
set(begin_end begin_finish start_end start_finish) 

Lub, jeśli istnieje więcej niż dwa z nich:

> my Set $middle = <center_ base_>.Set 
> my Set $all = ([X~] $left.keys, $middle.keys, $right.keys).Set 
set(begin_base_end begin_base_finish begin_center_end begin_center_finish start_base_end start_base_finish start_center_end start_center_finish) 

Answer 1

Można użyć funkcji reduce jechać z dowolnej liczby zestawów do A pojedynczy zestaw ze wszystkimi połączonymi w nim elementami:

my Set @sets = set(<start_ begin_>), 
       set(<center_ base_>), 
       set(<end finish>); 
my $result = @sets.reduce({ set $^a.keys X~ $^b.keys }); 
say $result.perl 
# => 
Set.new("start_base_end","begin_center_finish","start_center_finish", 
     "start_center_end","start_base_finish","begin_base_end", 
     "begin_center_end","begin_base_finish") 

To wydaje mi się czyste.