perl6 – 如何在Perl 6中连接两组字符串？

发布时间：2020-12-15 21:46:10 所属栏目：大数据来源：网络整理

导读：对于 concatenate两组字符串,是否有惯用方法或内置方法？这就是我想要的： my Set $left = start_ begin_.Setset(begin_ start_) my Set $right = end finish.Setset(end finish) my Set $left_right = ($left.keys X~ $right.keys).Setset(begin_end begin

对于 concatenate两组字符串,是否有惯用方法或内置方法？

这就是我想要的：

> 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)

或者,如果有两个以上：

> 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)

解决方法

您可以使用reduce函数从任意数量的集合转换为单个集合,其中包含所有内容：

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")

这对我来说似乎很干净.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!