Rosetta Code

Averages/Arithmetic mean: Difference between revisions

Page Discussion

Averages/Arithmetic mean (view source)

Revision as of 16:13, 30 May 2008

76 bytes removed ,  16 years ago
→‎{{header|Perl}}: General cleanup.
No edit summary
(→‎{{header|Perl}}: General cleanup.)
Line 266:
 
=={{header|Perl}}==
<perl>sub avg(@_) {
@_ $countor =return 0;
my $sum = 0;
$sum += $_ foreach (@_) {;
return $sum += $/@_;
}▼
$count++;
}
return $count > 0 ? $sum / $count : 0;
▲ }
print avg(qw(3 1 4 1 5 9))., "\n";</perl>
 
Output:
3.83333333333333
 
{{libheader|Data::Average}}
With module Data::Average.
(For zero-length arrayarrays, returns ()the empty list.)
<perl>use Data::Average;
my $d = Data::Average->new;▼
$d->add($_) foreach (qw(3 1 4 1 5 9));▼
print $d->avg."\n"▼
 
▲ my $d = Data::Average->new;
Output:
▲ $d->add($_) foreach (qw(3 1 4 1 5 9));
3.83333333333333
▲ print $d->avg., "\n"</perl>
 
=={{header|Pop11}}==
Underscore
845

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/50023"