在
Python 3中,假设您运行一门课程并在学期结束时决定您将删除第一个和最后一个作业成绩,并且仅对其余成绩进行平均：
def drop_first_last(grades):
first,*middle,last = grades
return avg(middle)
print drop_first_last([100,68,67,66,23]);
在Perl 6中：
sub drop_first_last(@grades) {
my ($first,*@middle,$last) = @grades;
return avg(@middle);
}
say drop_first_last(100,23);
导致错误“无法在变量参数后放置必需参数$last”.
那么,在Perl 6中,与Python中的星形表达式相同的是什么？
解决方法
sub drop_first_last(Seq() \seq,$n = 1) { seq.skip($n).head(*-$n) };
say drop_first_last( 1..10 ); # (2 3 4 5 6 7 8 9)
say drop_first_last( 1..10,2 ); # (3 4 5 6 7 8)
它的工作方式：将第一个参数转换为Seq,然后跳过$n个元素,然后保留除最后$n元素之外的所有元素.