sequence - 查找列表 Raku 中相等元素的连续序列

Question

我想在列表中找到相等元素(例如长度为 2)的连续序列

my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>;
say grep {$^a eq $^b}, @s;

# ==> ((1 1) (2 2) (4 4) (3 3))

这段代码看起来没问题，但是当 2 2 2 序列后面再添加一个 2 时或者当其中一个 2 被删除时，它会显示 Too few positionals passed; expected 2 arguments but got 1如何修复它？请注意，我试图在不使用 for 的情况下找到它们循环，即我尝试尽可能使用功能代码找到它们。

可选:在粗体打印部分:

<1 1 0 2 0 2 1 2 2 2 4 4 3 3>

2 2的多个序列被看见。如何打印它们被看到的次数？喜欢:

((1 1) (2 2) (2 2) (4 4) (3 3))

Answer 1

您的输入中有偶数个元素:

say elems <1 1 0 2 0 2 1 2 2 2 4 4 3 3>; # 14

您的grep block 每次消耗两个元素:

{$^a eq $^b}

因此，如果您添加或删除一个元素，您将收到当该 block 在末尾留下的单个元素上运行时出现的错误。

<小时/>

有很多方法可以解决您的问题。

但是您还询问了允许重叠的选项，例如，您会得到两个 (2 2)当序列 2 2 2 时，子列表遇到。并且，以类似的方式，您可能希望看到两个匹配，而不是零，输入如下:

<1 2 2 3 3 4>

因此，我也将重点关注解决这些问题的解决方案。

尽管解决方案空间缩小以处理额外问题，但仍然有很多方法可以功能性地表达解决方案。

<小时/>

一种只需在代码末尾添加更多代码的方法:

my @s = <1 1 0 2 0 2 1 2 2 2 4 4 3 3>;
say grep {$^a eq $^b}, @s .rotor( 2 => -1 ) .flat

.rotor method将列表转换为子列表的列表，每个子列表的长度相同。例如，say <1 2 3 4> .rotor: 2显示((1 2) (3 4)) 。如果长度参数是一对，则键是长度，值是开始下一个对的偏移量。如果偏移量为负数，则会出现子列表重叠。因此say <1 2 3 4> .rotor: 2 => -1显示((1 2) (2 3) (3 4)) .

.flat method “压平”其调用者。例如，say ((1,2),(2,3),(3,4)) .flat显示(1 2 2 3 3 4) .

编写上述解决方案的一种可能更易读的方法是省略 flat并使用.[0]和.[1]索引 rotor 返回的子列表:

say @s .rotor( 2 => -1 ) .grep: { .[0] eq .[1] }

另请参阅 Elizabeth Mattijsen 的评论，了解适用于任何子列表大小的另一种变体。

<小时/>

如果您需要更通用的编码模式，您可以编写如下内容:

say @s .pairs .map: { .value xx 2 if .key < @s - 1 and [eq] @s[.key,.key+1] }

.pairs method on a list返回一个对列表，每对对应于其调用列表中的每个元素。 .key每对的 是调用者列表中元素的索引； .value是元素的值。

.value xx 2可以写成.value, .value 。 (参见 xx 。)

@s - 1是 @s 中的元素数量负 1。

[eq]在[eq] list是 reduction .

<小时/>

如果您需要文本模式匹配来决定什么构成连续的相等元素，您可以将输入列表转换为字符串，使用生成匹配列表的匹配副词之一进行匹配，然后从匹配结果列表进行映射达到您想要的结果。要与重叠匹配(例如 2 2 2 结果为 ((2 2) (2 2)) 使用 :ov :

say @s .Str .match( / (.) ' ' $0 /, :ov ) .map: { .[0].Str xx 2 }