How to write a Perl program that adds up the numbers in a file and prints out their sum, average, max and min. There is one number per line. You must print the average out showing two digits after the decimal point.
The numbers are:
50
20
3
4
5
Anthony Cameron -2 Light Poster
masijade commented: Well, ask a stupid question ... We are not a homework service. -2
nonshatter commented: Show some effort +0
masijade 1,351 Industrious Poster Team Colleague Featured Poster
With a text editor.
masijade 1,351 Industrious Poster Team Colleague Featured Poster
Oh, upset that nobody did your work for you? Too bad.
mitchems 12 Posting Whiz in Training
I'll do it for you, but I don't think you'll be able to turn it in as your work.
use strict;
use warnings;
use List::Util qw(sum max min);
my @nums=<DATA>;
my $sum=sum(@nums);
my $avg=$sum/@nums;
my $max=max(@nums);
my $min=min(@nums);
print "Sum: $sum\n";
print "Avg: $avg\n";
print "Min: $min\n";
print "Max: $max\n";
__DATA__
50
20
4
3
5Best to use something someone has already written IMO.
mitchems 12 Posting Whiz in Training
Here's the two digits after the decimal point (if zeros matter):
use strict;
use warnings;
use List::Util qw(sum max min);
my @nums=<DATA>;
my $count=@nums;
my $sum=sum(@nums);
my $avg=$sum/$count;
my $max=max(@nums);
my $min=min(@nums);
chomp($min);
print "Sum: $sum\n";
printf "Avg: %0.2f\n",$avg;
print "Min: $min\n";
print "Max: $max\n";
__DATA__
50
20
4
3
5For some reason list utils seems to return a linefeed (or carriage return) after the min. That's the chomp. I think it's a windows thing, but can't be sure right now.
Anthony Cameron -2 Light Poster
Thank you very much for your help. I now understand.
techieinvents 0 Newbie Poster
Really superbly explained mitchems ...
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.