#!/usr/bin/perl -w

#
# somma-N.pl
#
# Programma che calcola la somma dei primi N numeri interi
# Input: il numero N
# Output: la somma da 1 a N
#

print "inserisci N (intero positivo) ";
my $N = <STDIN>;	# leggo N
chomp $N;		# tolgo il \n alla fine

print "La somma da 1 a N (usando un ciclo  ) è " . &sommaNciclo($N) . "\n";

print "La somma da 1 a N (usando la formula) è " . &sommaN($N) . "\n";

#---------------------------------------------------------------------------------
# Somma da 1 a N con un ciclo
sub sommaNciclo ($) {
	my $x = shift;		# assegno l'argomento ad una variabile locale
	my $somma = 0;
	my $i;
	for ($i = 1 ; $i <= $x ; $i++) {
		$somma += $i;
	}
	return $somma;
}

#---------------------------------------------------------------------------------
# Somma da 1 a N con un ciclo
sub sommaN ($) {
	my $x = shift;		# assegno l'argomento ad una variabile locale
	return $x * ($x + 1) /2;
}

#-------------------------------------- fine --------------------------------------