#! usr/bin/perl
sub average
{
my $total;
my $n=0;
my $average;
foreach(@_)
{
$total+=$_;
$n++;
}
$average=$total/$n;
$average;
}
sub above_average
{
@above=();
my $t=&average(@_);
foreach(@_)
{
if($_>$t){push @above ,$_};
}
@above;
}
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";
sub average
{
my $total;
my $n=0;
my $average;
foreach(@_)
{
$total+=$_;
$n++;
}
$average=$total/$n;
$average;
}
sub above_average
{
@above=();
my $t=&average(@_);
foreach(@_)
{
if($_>$t){push @above ,$_};
}
@above;
}
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";