数学序列，以连续的序列为例，可以用数组表示：
my @seq = my $a=0, {++$a} ... *;
for @seq[^10].kv {state $f=0; ($^k < 4 or $^k > 7) ?? say "a$^k = " ~ $^v !! (say "..." if $f ne 1; $f=1) };
输出：
a0 = 0
a1 = 1
a2 = 2
...
a8 = 8
a9 = 9
1- 有没有一种简单的方法可以仅从打印输出中删除第一个元素，即a0 = 0？
2- 这段代码能否更具习惯性？
您可以使用skip方法跳过任何Iterable或Sequence中的前N个值：
for (^5).skip(3) {
.say
}
# 3
# 4
skip将只是像跳过的元素不存在一样。这可能是你想要的，也可能不是 :-) - Elizabeth Mattijsenfor @seq[^10].kv.skip(2) 是你正在寻找的？ - Elizabeth Mattijsen($^k < 4 or $^k > 7)，不如使用 ($^k == (4..7).none)，虽然这种写法不太简洁，但更符合惯用语。 - Lars Malmsteen让我们从一个非常简单的解决方案开始，用于打印序列的要点。它不涉及您在问题中添加的具体细节，但这是一个很好的起点：
sub seq-range-gist ( @seq ) {
my @pairs = @seq.pairs;
join "\n", @pairs.head(3)».gist, '...', @pairs.tail(2)».gist
}
.kv 不同，它将其调用方转换为形式 key1, value1, key2, value2, key3, value3, ...，即如果其调用方包含 3 个元素，则有 6 个元素；.pairs 将其调用方转换为形式 key1 => value1, key2 => value2, key3 => value3, ...。
我使用 .pairs 而不是 .kv 部分原因是因为这意味着我可以在代码后面轻松地使用 ».gist 来得到每个元素的好看的 key1 => value1 显示。我们将在下面修改它，但这是一个很好的惯用方法。
.head 和 .tail 调用是从调用方列表中创建前 N 个元素和后 N 个元素的小列表的惯用方式（前提是它不是懒惰的；更多关于这个的内容稍后会详细说明）。
给定此初始解决方案，say seq-range-gist (0,1 ... Inf)[^10] 显示：
0 => 0
1 => 1
2 => 2
...
8 => 8
9 => 9
say seq-range-gist (0,1 ... Inf)[1..9] 显示：0 => 1
1 => 2
2 => 3
...
7 => 8
8 => 9
=> 左侧的数字保留原始序列的编号。为了实现这一点，我们将基础序列从我们想要提取的范围中分离出来。我们添加第二个参数/参数@range，并将 [@range] 追加到子程序的第二行。sub seq-range-gist ( @seq, @range ) {
my @pairs = @seq.pairs[@range];
say seq-range-gist (0,1 ... Inf), 1..9 来显示：1 => 1
2 => 2
3 => 3
...
8 => 8
9 => 9
INDEX => VALUE。为了允许对Gist进行自定义，我们添加了第三个&gist例程参数/参数，并调用该参数而不是内置的. gist 方法：
sub seq-range-gist ( @seq, @range, :&gist ) {
my @pairs = @seq.pairs[@range];
join "\n", @pairs.head(3)».&gist, '...', @pairs.tail(2)».&gist
}
请注意，seq-range-gist 子程序体中的 "method" 调用现在是 .&gist，而不是 .gist。语法 .&foo 调用了一个 sub &foo（通常通过编写 foo 来调用），并将左侧的 invocant 作为 $_ 参数传递给 sub。
请注意，我也通过在 &gist 参数前加上一个 :，使其成为一个命名参数。
因此，现在 say seq-range-gist (0,1 ... Inf), 1..9, gist => { "a{.key} = {.value}" } 显示：
a1 = 1
a2 = 2
a3 = 3
...
a8 = 8
a9 = 9
增加光泽
对于关心光泽的读者，本答案的其余部分是额外材料。
say seq-range-gist (0, 1, 2, 3), ^3 显示：
0 => 0
1 => 1
2 => 2
...
1 => 1
2 => 2
糟糕。即使有更多的配对比头和尾部组合还要多，这样至少我们不会得到重复的行，但是使用“head，...，tail”方法来省略一个或两个元素仍然是没有意义的。让我们改变子体中的最后一条语句以消除这些问题：
join "\n",
@pairs < $head + $tail + 3 # Of course, the 3 is a bit arbitrary
?? @pairs».&gist
!! (@pairs.head($head)».&gist, '...', @pairs.tail($tail)».&gist)
接下来，如果在没有范围或要点的情况下调用子程序时，它能够执行一些有用的操作会更好。我们可以通过为@range和&gist参数提供适当的默认值来解决这个问题:
sub seq-range-gist (
@seq,
@range = @seq.is-lazy ?? ^100 !! ^@seq,
:&gist = { .gist }
) {
如果@seq不是懒惰的话，@range默认为@seq的完整范围。如果@seq是无限的（在这种情况下它也是懒惰的），那么默认的最多100个就可以了。但是如果@seq是懒惰的，但产生的定义值少于100个怎么办？为了涵盖这种情况，我们将.grep：*.value.defined附加到@pairs声明中：
my @pairs = @seq.pairs[@range].grep: *.value.defined;
另一个简单的改进是可选的头部和尾部参数，从而实现最终完美的解决方案：
sub seq-range-gist (
@seq,
@range = @seq.is-lazy ?? ^100 !! ^@seq,
:$head = 3,
:$tail = 2,
:&gist = { .gist }
) {
my @pairs = @seq.pairs[@range].grep: *.value.defined;
join "\n",
@pairs <= $head + $tail + 2
?? @pairs».&gist
!! (@pairs.head($head)».&gist, '...', @pairs.tail($tail)».&gist)
}
... 部分，使其看起来更像 C 程序。因此，这实际上回答了我的问题的两个部分。至于“全面”的解决方案，它看起来有点令人生畏。 - Lars Malmsteenmy @seq = my $a=0, {++$a} ... *;
my \i = 0;
say( 'a' ~ (i+$_) Z=> (i+$_) ) for @seq[^5];
print "------\n";
my \j = 1;
say( 'a'.succ ~ (j+$_) Z=> (j+$_) ) for @seq[^5];
输出：
(a0 => 0)
(a1 => 1)
(a2 => 2)
(a3 => 3)
(a4 => 4)
------
(b1 => 1)
(b2 => 2)
(b3 => 3)
(b4 => 4)
(b5 => 5)
gist 省略条件（($^k < 4 or $^k > 7)），但是您似乎在评论中想出了一种更优雅的写法。如果您不想使用 skip，请自己编号，并包括一个偏移量，如 i 或 j，表示您希望跳过 @seq 的多少个元素。gist 省略条件（使用 grep）的代码：my @seq = my $a=0, {++$a} ... *;
my \i = 0; my \m = 4; my \n = 7;
do for @seq[^10].grep({4 > $_ or $_ > 7 }) {
say 'a' ~ (i+$_) Z=> (i+$_);
if $_ == 3 {print "...\n"};
}
当 \i = 0 时的输出结果：
(a0 => 0)
(a1 => 1)
(a2 => 2)
(a3 => 3)
...
(a8 => 8)
(a9 => 9)
\i = 1时的输出结果：
(a1 => 1)
(a2 => 2)
(a3 => 3)
(a4 => 4)
...
(a9 => 9)
(a10 => 10)