perl6 中的变量量词

Perl 6 中的变量量词

perl6
my @numbers = 1, 2, 3, 4, 5;

perl6
for @numbers {
    say $_;
}

perl6
my @numbers = 1, 2, 3, 4, 5;
my $sum = 0;
for @numbers {
    $sum += $_;
}
say $sum;  # 输出 15

perl6
my @grades = 85, 92, 78, 95, 88;
my $sum = 0;
my $max = @grades[0];
my $min = @grades[0];
for @grades {
    $sum += $_;
    $max = $_ if $_ > $max;
    $min = $_ if $_ < $min;
}
my $average = $sum / @grades.elems;
say "平均分：$average";
say "最高分：$max";
say "最低分：$min";