perl6 – 在Python中用Perl 6表示星形表达式的等价物是什么？

发布时间：2020-12-15 21:58:02 所属栏目：大数据来源：网络整理

导读：在 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中：

在 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元素之外的所有元素.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!