#!perl6use v6;my @a = 1..3;my @b = 7..10;my @c = 'a'..'d';for zip(@a;@b;@c) -> $nth_a,$nth_b,$nth_c { ... };# Output:# ===SORRY!===# Unable to parse postcircumfix:sym<( )>,Couldn't find final ')' at line 9解决方法 Rakudo尚未实现lol(“列表列表”)表单,因此无法解析@a; @b; @c.出于同样的原因,zip还没有一个包含三个列表的表单.显然,错误消息不是很棒.
目前还没有一个好的解决方法,但是这里有一些可以完成工作的东西:
sub zip3(@a,@b,@c) { my $a-List = flat(@a.List); my $b-List = flat(@b.List); my $c-List = flat(@c.List); my ($a,$b,$c); gather while ?$a-List && ?$b-List && ?$c-List { $a = $a-List.shift unless $a-List[0] ~~ ::Whatever; $b = $b-List.shift unless $b-List[0] ~~ ::Whatever; $c = $c-List.shift unless $c-List[0] ~~ ::Whatever; take ($a,$c); }}for zip3(@a,@c) -> $nth_a,$nth_c { say $nth_a ~ $nth_b ~ $nth_c;}总结
以上是内存溢出为你收集整理的perl6 / rakudo:无法解析postcircumfix:sym <()>全部内容,希望文章能够帮你解决perl6 / rakudo:无法解析postcircumfix:sym <()>所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)