1 ffd9a51f 2023-08-04 jrmu #!/usr/bin/perl
 2 ffd9a51f 2023-08-04 jrmu 
 3 ffd9a51f 2023-08-04 jrmu #Using the subroutine from the previous problem, make a program to calculate the sum of the numbers from 1 to 1,000
 4 ffd9a51f 2023-08-04 jrmu 
 5 ffd9a51f 2023-08-04 jrmu use warnings;
 6 ffd9a51f 2023-08-04 jrmu use strict;
 7 ffd9a51f 2023-08-04 jrmu use utf8;
 8 ffd9a51f 2023-08-04 jrmu 
 9 ffd9a51f 2023-08-04 jrmu sub total {
10 ffd9a51f 2023-08-04 jrmu 	my $sum = 0;
11 ffd9a51f 2023-08-04 jrmu 	foreach (@_) {
12 ffd9a51f 2023-08-04 jrmu 		$sum += $_;
13 ffd9a51f 2023-08-04 jrmu 	}
14 ffd9a51f 2023-08-04 jrmu 	return $sum;
15 ffd9a51f 2023-08-04 jrmu }
16 ffd9a51f 2023-08-04 jrmu 
17 ffd9a51f 2023-08-04 jrmu print "The sum from 1 to 1000 is ". total(1..1000)."\n";