Somme des éléments d'un tableau en Perl Fermé

Question

Bonjour, 

Je souhaite effectuer la somme de  lignes d'un tableau et lettre le résultat dans 

j'ai un tableau lignes colonnes @tab[$i] [$j] de cette forme: 

1 5 7 4 8 
3 6 9 5 6
0 2 1 4 9

je souhaite obtenir un tableau @TAB qui aura comme valeur ma somme des éléments chaque ligne du tableau précédent: 

càd de cette forme

25 29 16 

merci

valentin2703 · Answer

Salut Niroise,

Voila une petite fonction qui devrais t'aider :

sub calcLines {
	my (@tab) = @_;

	# Tableau de sortie
	my @calcTab;

	for(my $i = 0; $i < $lengthTab; $i++) {
		# Sous tableau
		my @underTab = $tab[$i];
		my $lengthUnderTab = scalar @underTab;

		for(my $j = 0; $j < $lengthUnderTab; $j++) {
			$calcTab[$j] += $underTab[$j];
		}
	}

	return @calcTab;
}

my @tab;

Niroise · Answer

Merci Valentin, 

J'ai un autre question, je souhaite afficher le résultat de deux conditions comme suit : 

if ($x=$y) { $tab[$i]=$val;}
if ($x=$z) { $tab[$i+1]=$val2;} 



print $tab[$i]."|" $tab[$i+1]."
"; 

le print ne me donne rien du tous sachant que si je mais le print à l'intérieur du if ça me donne bien le résultat de $tab[$i] 

if condition { $tab[$i]=$val; print $tab[$i]."
"; }


les conditions peuvent être réalisées les deux à la fois, chacune séparément ou bien aucune d'elle, c'est pour cette raison que je ne peut ni les imbriquées ni faire le ifelse

Somme des éléments d'un tableau en Perl

2 réponses

Discussions similaires