如何在Raku中无限懒散地循环列表？

Question

这主要是为了让你知道Raku有多棒。

a, b, c, a, b, c, ...

我至少能想到几个。

更繁琐的脚踏实地的方法是将@array[ mod length-of-@array] 映射到惰性范围0..INF上。在perl6repl中：

> my @ar=<a b c>
[a b c]
> (0..Inf).map({ @ar[$_ % @ar.elems] }).[0..100]
(a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a ...)

一个更酷的解决方案（我认为）是让你先把你的列表变成一张单子，然后对这个单子无限期地应用重复操作符：

> my @ar=<a b c>
[a b c]
> (|@ar xx *).[0..100]
(a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a ...)

这是对@Brad Gilbert的答案略作阐述。»~»运算符在»超运算符中包装字符串连接~，这导致将包装后的二进制运算符应用于从两个列表中顺序选择的元素。

因此，为了实现我想要的（列表循环到一个期望的长度，比如100)，一个人可以做

<a b c> <<~>> ("" xx 100)

这就产生了

(a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a b c a)

null

<a b c> <<~>> ("" xx *)

List on right side of hyperop of infix:<~> is known to be infinite
  in block <unit> at <unknown file> line 1

Answer 1

当它可以写得这么短的时候，为什么要为此添加一个特性。尤其是因为这可能是一个罕见的事件，你会需要这样的东西。

|< a b c > xx *

但是有一个例外，如果您使用«~»这样的东西，它会为您扩展它。

< a b c > «~» (1..10)
# (a1 b2 c3 a4 b5 c6 a7 b8 c9 a10)