Step 3: above_average
sub above_average {
my (@given_numbers) = @_;
my $average = total(@given_numbers)
/ @given_numbers;
continued...
| CPU: Perl, Fall 2005 | Perl, Week 3: More Arrays, Context, Subroutines, Lexical Variables | #60 |
sub above_average {
my (@given_numbers) = @_;
my $average = total(@given_numbers)
/ @given_numbers;
continued...
| Copyright © 2005 Ian Langworth |