raku - perl6/rakudo: postcircumfix:sym<( )> を解析できません

Question

このエラー メッセージが表示されるのはなぜですか?

#!perl6
use 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

Answer 1

Rakudo は lol (「リストのリスト」) 形式をまだ実装していないため、 を解析できません@a;@b;@c。同じ理由で、 にzipはまだ 3 つのリストを取るフォームがありません。明らかに、エラー メッセージは素晴らしいものではありません。

適切な回避策はまだありませんが、次の方法で作業を完了できます。

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, $b, $c);
    }
}

for zip3(@a,@b,@c) -> $nth_a, $nth_b, $nth_c {
    say $nth_a ~ $nth_b ~ $nth_c;
}