omas · August 29, 2015 14:11
diff --git a/mission1.pl b/mission1.pl
 #! /usr/bin/perl
 
 use strict;
 use warnings;

 my ($length,@stocks) = (<STDIN>,<STDIN>);
 print(&sum(@stocks[0..$length -1]));

 sub sum {
 	my $sum = 0;
 	$sum += $_ for @_;
 	return $sum;
 }
	#! /usr/bin/perl

	use strict;
	use warnings;

	my ($length,@stocks) = (<STDIN>,<STDIN>);
	print(&sum(@stocks[0..$length -1]));

	sub sum {
	my $sum = 0;
	$sum += $_ for @_;
	return $sum;
	}
No results found