《Perl语言入门》第四版习题(4)
来源:互联网 发布:部落冲突挂机软件 编辑:程序博客网 时间:2024/05/05 09:11
- 写一个名为&total 的子程序,返回一列数字的和。提示:子程序不应当有任何的I/O 操作;它处理调用的参数,返回处理后的值给调用者。结合下面的程序来练习,它检测此子程序是否正常工作。第一组数组之和我25。
my @fred = qw{ 1 3 5 7 9 };
my $fred_total = &total(@fred);
print "The total of /@fred is $fred_total./n";
print "Enter some numbers on separate lines: ";
my $user_total = &total(<STDIN>);
print "The total of those numbers is $user_total./n"; - 利用上题的子程序,写一个程序计算从1 到1000 的数字的和。
- 额外的练习:写一个子程序,名为&above_average,将一列数字作为其参数,返回所有大于平均值的数字(提示:另外写一个子程序来计算平均值,总和除以数字的个数)。利用下面的程序进行测试:
my @fred = &above_average(1..10);
print "/@fred is @fred/n";
print "(Should be 6 7 8 9 10)/n";
my @barney = &above_average(100, 1..10);
print "/@barney is @barney/n";
print "(Should be just 100)/n";
1:
#!/usr/bin/perl -w
#<Leanning Perl 4th Edition> Exercise 4-1
use strict;
sub total {
my $sum=shift @_;
foreach (@_) {
$sum=$sum+$_;
}
$sum;
}
my @fred=qw {1 3 5 7 9};
my $fred_total=&total(@fred);
print "The Total of /@fred is $fred_total./n";
print "Enter some numbers on separate lines: ";
my $user_total = &total(<STDIN>);
print "The Total of those numbers is $user_total./n";
2:
#!/usr/bin/perl -w
#<Leanning Perl 4th Edition> Exercise 4-2
use strict;
sub total {
my $sum=shift @_;
foreach (@_) {
$sum=$sum+$_;
}
$sum;
}
my @array=1 .. 1000;
my $array_total=&total(@array);
print "The sum of 1 to 1000 is $array_total./n";
3:
#!/usr/bin/perl -w
#<Leanning Perl 4th Edition> Exercise 4-3
use strict;
sub average {
my $number=@_;
my $sum=shift @_;
foreach (@_) {
$sum=$sum+$_;
}
my $array_average=$sum/$number;
}
sub above_average {
my @above;
foreach (@_) {
if ($_>&average(@_)) {
push @above,$_;
}
}
@above;
}
my @above_fred = &above_average(1 .. 10);
print "The above average of /@fred is @above_fred/n";
my @above_barney = &above_average(100, 1 .. 10);
print "The above average of /@barney is @above_barney/n";
- 《Perl语言入门》第四版习题(4)
- 《Perl语言入门》第四版习题(5)
- 《Perl语言入门》第四版习题(3)
- 《Perl语言入门》第四版习题(2)
- 《Perl语言入门》第四版习题(6)
- 《Perl语言入门》第四版习题(7)
- 《Perl语言入门》第四版习题(8)
- 《Perl语言入门》第四版习题(10)
- 《Perl语言入门》第四版习题(9)
- 《Perl语言入门》第四版习题(11)
- 《Perl语言入门》第四版习题(12)
- 《Perl语言入门》第四版习题(14)
- 《Perl语言入门》第四版习题(13)
- perl语言入门第四版第5章习题
- Perl 语言入门课后习题
- PERL语言入门:第四章:子程序(函数):习题2:求1-100总和
- C#入门经典(第4版)第四章习题
- 《Perl语言入门》第四章 子程序
- 《Perl语言入门》第四版习题(5)
- Winsock frame in Win32 console application
- 猫吃老鼠的STL实现
- strncat 用法
- action标签
- 《Perl语言入门》第四版习题(4)
- ExtJS xtype class对照表
- 《Perl语言入门》第四版习题(3)
- Openfire Server presence(在线状态)消息处理流程
- 删除U盘时提示无法停止‘通用卷’设备的解决方法!!不要每次都硬拔了,对电脑有不小的损害!!!
- 食品购物是选择B2B?还是C2C?
- 《Perl语言入门》第四版习题(2)
- JAVA CMD 特殊字符的转义
- 黑客必备技巧 谈黑客攻击前的试探技巧