in reply to minimum, maximum and average of a list of numbers at the same time
# no error checking... sub min_max_avg { my ($min, $max) = (sort {$a <=> $b} @_)[0,-1]; my $total; $total += $_ for @_; return ($min, $max, $total/@_) }
Paul
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: minimum, maximum and average of a list of numbers at the same time
by Aristotle (Chancellor) on Nov 10, 2005 at 20:26 UTC | |
by BrowserUk (Patriarch) on Nov 10, 2005 at 20:56 UTC | |
by Aristotle (Chancellor) on Nov 10, 2005 at 21:57 UTC | |
|
Re^2: minimum, maximum and average of a list of numbers at the same time
by salva (Canon) on Nov 10, 2005 at 20:32 UTC |