Advanced Search

Space separated values sum

/ Published in: Perl
Save to your folder(s)
Program that sums all the values (including big positive/negative integers)

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. use strict;
  2. use warnings;
  3. use Math::BigInt;
  4.  
  5. while(<>)
  6. {
  7. 	chomp; 
  8. 	s/^ +//g;
  9. 	my @values = split /\s+/;
  10. 	my $elemento;
  11. 	my $sum = Math::BigInt->new('0');
  12. 	foreach $elemento (@values)
  13. 	{
  14. 		$sum->badd(Math::BigInt->new($elemento));
  15.     }
  16. 	print "$sum\n";
  17. 	$sum=0;
  18. }

Report this snippet


Comments

You need to login to view comments.