Filtering elements of an array with elements of another array in Perl 6

Question

I want to filter elements of @array which begin with elements of @search:

my @array = \         


        

Answer 1

my @array = "aaaaa" .. "fffff";
my @search = "aaaa" .. "cccc";
my $join = @search.join('|');
my $rx = rx{ ^ <{$join}> };

@array.grep( * ~~ $rx ).map( *.put )

You need to create the join string separately of it will evaluate the array join for each match. But the basically gives you what you want without using EVAL.