#!/usr/bin/perl
use warnings;
use strict;
my @number = 1..100;
my $sum = &number_sum(@number);
print "总和是: $sum\n";
sub number_sum{
my $sum;
foreach (@_){
$sum += $_;
}
$sum;
}
PERL语言入门:第四章:子程序(函数):习题2:求1-100总和
最新推荐文章于 2021-11-17 14:09:53 发布