如何解决“此 Seq 的迭代器已在使用中”？

Question

这段代码：

sub MAIN(Int $N = 128)
{
    my @pascal = ((1,), { (0, |@^a) Z+ (|@^a, 0) } ... *);

    my @top = @pascal[^$N];
    say "Percentage of odd numbers in the first $N rows: ",
        (100 × @top».grep(* % 2).sum / @top.sum).fmt('%.12f%%');
}

给我一个错误：

The iterator of this Seq is already in use/consumed by another Seq
(you might solve this by adding .cache on usages of the Seq, or
by assigning the Seq into an array)
  in sub MAIN at ./pascal1 line 8
  in block <unit> at ./pascal1 line 1

知道如何解决吗？我试过.cache在几个地方添加，但没有运气。

Answer 1

作为序列一部分的块正在创建 Seq。您应该能够像这样缓存它：

{ ( (0, |@^a) Z+ (|@^a, 0) ).cache }

Answer 2

Z 返回一个 Seq

当 aSeq产生它的下一个值时，它会将前一个值扔掉。

所以你通常只能从Seq一次中获取值。

{…}您拥有的块通过查看Seq它生成的前一个块来工作。所以有一个问题。要么你看到里面有什么Seq，要么...操作员看到里面有什么Seq

问题是，您可能不希望 的结果Z是Seq，而是希望它是List。

毕竟你...用一个List (1,).

((1,), { ((0, |@^a) Z+ (|@^a, 0)).List } ... *)