如何完全展平Perl 6列表(列表列表)...)

我想知道如何完全展平列表和包含它们的东西.除此之外,我想出了这个解决方案,它可以滑动具有多个元素的东西并将它们放回去,或者在滑动之后用一个元素取出它.

这与我如何"压扁"perl 6中的列表列表略有不同？,这是完全平坦的,因为任务是重组.

但是,也许有更好的方法.

my @a  = 'a', ('b', 'c' );
my @b  = ('d',), 'e', 'f', @a;
my @c  = 'x', $( 'y', 'z' ), 'w';

my @ab = @a, @b, @c;
say "ab: ", @ab;

my @f = @ab;

@f = gather {
    while @f {
        @f[0].elems == 1 ??
            take @f.shift.Slip
                !!
            @f.unshift( @f.shift.Slip )
        }
    }

say "f: ", @f;

这给出了:

ab: [[a (b c)] [(d) e f [a (b c)]] [x (y z) w]]
f: [a b c d e f a b c x y z w]

奇怪的是,我还阅读了一些python答案:

在Python中列出列表中的平面列表

如何将列表列表展平一步

将列表列表展平到列表列表中

itertools.chain(*sublist)看起来很有趣,但答案要么是递归的,要么限于硬编码的两个级别.功能语言在源代码中是递归的,但我希望如此.

遗憾的是,即使子列表包含在项容器中,也没有直接内置来完全展平数据结构.

一些可能的解决方

收集/取

您已经提出了这样的解决方案,但deepmap可以处理所有树迭代逻辑以简化它.它的回调被调用一次用于数据结构的每个叶节点,因此使用take回调意味着gather将收集叶值的平面列表:

sub reallyflat (+@list) { gather @list.deepmap: *.take }

multi reallyflat (@list) { @list.map: { slip reallyflat $_ } }
multi reallyflat (\leaf) { leaf }

sub reallyflat (+@list) {
    flat do for @list {
        when Iterable { reallyflat $_<> }
        default       { $_               }
    }
}

say @ab[*;*];     # (a (b c) (d) e f [a (b c)] x (y z) w)
say @ab[*;*;*];   # (a b c d e f a (b c) x y z w)
say @ab[*;*;*;*]; # (a b c d e f a b c x y z w)
say @ab[**];      # HyperWhatever in array index not yet implemented. Sorry.

my @a  := 'a', ('b', 'c' );
my @b  := ('d',), 'e', 'f', @a;

say flat @b;  # (d e f a b c)

my $a = (3, 4, 5);
my $b = (1, 2, $a<>, 6);

say flat |$b;  # (1 2 3 4 5 6)

gather @ab.deepmap(*.take)

gather @ab>>.take

sub deepflat { gather deepmap &take, @_ }