#! usr/bin/perl
use strict;
use warnings;
use POSIX;
use 5.010;
sub calc_prog {
my @num_of_animals;
# my $alert_input;
# my $num_of_feet;
for (@_) {
if ($_%2 != 0){
push @num_of_animals, (0,0);
}
else {
push @num_of_animals, (ceil($_/4));
push @num_of_animals, $_/2;
}
}
@num_of_animals;
}
my @number_input;
my @number_output;
print "Please input the number of feet!\n";
@number_input = (<STDIN>);
@number_output = calc_prog(@number_input);
my $flag;
for ($flag = 0; $flag < @number_output; $flag++) {
if ($flag%2 == 0){
print "$number_output[$flag] ";
}
else {
print "$number_output[$flag]\n";
}
}
# Lines_in
# my $number_input;
# my @number_output;
# print "Please input the number of feet!\n";
# my $flag;
# while ($number_input = (<STDIN>)) {
# @number_output = calc_prog($number_input);
# for ($flag = 0; $flag < @number_output; $flag++) {
# if ($flag%2 == 0){
# print "$number_output[$flag] ";
# }
# else {
# print "$number_output[$flag]\n";
# }
# }
# }
POJ 算法练习题 其一
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 题目描述：1.1.14 Write a static method lg() that takes an int ...
- 题目描述：1.1.15 Write a static method histogram() that takes ...
