递归展平多维数组

Question

扁平化多维数组的最短方法是什么？
以下是我的意思的一些示例：

# 2D array
my @a = [1,2],[3,4];
say @a».Slip.flat;                # prints (1 2 3 4)
# 3D array
my @b = [[1,2],[3,4]],[[5,6],[7,8]];
say @b».Slip».flat».Slip.flat;    # prints (1 2 3 4 5 6 7 8)
                                  # but needs to know how many dimensions
                                  # there are to flatten

是否可以递归地展平一个数组，例如@b，而无需编写递归下降到其中的 sub 或不知道其维数的任何知识？
我问这个是因为我相信编译器（现在或将来的实现）能够优化更多基于运算符的解决方案而不是 sub。

Answer 1

不确定是否有更紧凑的方式，但是

say do gather @b.deepmap(*.take);

应该这样做。

如果您不关心展平结果的顺序，

say do gather @b>>.take;

也可能是一种选择，尽管我觉得（ab）使用超级运算符来产生副作用是错误的......

---

在正确处理 raiph 建议的 HyperWhatever 切片到达核心之前，您可以添加自己的糖 @b[**]，通过

覆盖此特定用例

multi sub postcircumfix:<[ ]>(\SELF, HyperWhatever:D $, *% where !*) {
    gather SELF.deepmap(*.take);
}

Answer 2

say @a>>.List.flat

应该可以解决问题，但是我注意到 Range 会破坏递归：

my @a = [[1,2],[3,4],5,[6,7],[8,9,0],[[1,[2,3,4,[ 23,56,^7]],5,6,]],7,8,9,0];
say @a>>.List.flat;   #prints (1 2 3 4 5 6 7 8 9 0 1 2 3 4 [23 56 ^7] 5 6 7 8 9 0)

我不知道这是否是一个错误。