arrays - 如何将结点中的值作为数组返回？

Question

定义一个结点 my $j = 1 | 2 | 3 | 4 | 5 ，现在我想获取其值的数组 [1 2 3 4 5] ，我应该如何实现这个？

我试过 $j.values但是 Perl6 给了我整个结点作为一个元素:[any((1), (2), (3), (4), (5))] .

Answer 1

正如 Håkon Hægland 已经指出的，这不是你应该做的事情:

Junctions are meant to be used as matchers in boolean context; introspection of junctions is not supported. If you feel the urge to introspect a junction, use a Set or a related type instead.

 -- docs.perl6.org/type/Junction

然而，这是可能的。

首先，您可以使用自动线程(即，当传递给需要类型为 Any 的参数的函数时，对连接的每个分支的自动评估):

sub unjunc(Junction $j) {
    gather -> Any $_ { .take }.($j);
}

其次，您可以深入了解并手动提取值:

sub unjunc(Junction $j) {
    multi extract(Any $_) { .take }
    multi extract(Junction $_) {
        use nqp;
        my $list := nqp::getattr($_, Junction, '$!storage');
        my int $elems = nqp::elems($list);
        loop (my int $i = 0; $i < $elems; $i = $i + 1) {
            extract nqp::atpos($list, $i);
        }
    }
    gather extract $j;
}

如果您的结点是非递归的(即不包含要展平的其他结点)，则可以简化后一种方法:

my $j := 1|2|3;
say nqp::p6bindattrinvres(nqp::create(List), List, '$!reified',
    nqp::getattr($j, Junction, '$!storage'));