Discussion :

[Isabella83]

Bonjour à tous,
J'ai une liste qui ressemble à cela :

@liste = (37,36,35,34,33,32,0,0,0,0,0,0,0,0,0,0,0,0,19,18,17,16,15,14)

Je souhaiterai commencer mon programme à partir des chiffres colorés en rouge, vérifier que leur somme est égale à 0. Si c'est le cas, je veux étendre ma sélection à droite et à gauche jusqu'à avoir tous les 0 donc ici 12 zéros.

J'ai commencé par ceci, mais n'y a t'il pas plus simple ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $i = 12 ;
my $j = 16;
my $int = 0;
my @index;
 
 
@index = $i...$j;
my @tab = @value[@index];
 
if (sum(@tab)==0){
	while($value[$i-1]==0){
		$i--;
	}
	while($value[$j+1]==0){
		$j++;
	}
 
 
}

[Lolo78]

Bonsoir,

Hum, ça dépend de variantes de ta liste. Si les 0 sont toujours groupés ensemble, tu peux peut-être faire un join pour transformer ta liste en une chaîne de caractères et lui appliquer une expression régulière du genre /^[^0]*(0,)+[^0]*/. Mais pas sûr que cela te suffise pour ce que tu veux faire, tout dépend des valeurs susceptibles d'être prises par la liste et de ce que tu veux faire avec ces valeurs ensuite.

Mais franchement, sauf cas particulier que seule toi peut connaître, ton approche consistant à parcourir explicitement la liste est sans doute la mailleure.

[Philou67430]

Lolo, pour l'expression régulière, une simple recherche globale des tous les /(0+)/g suffit, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
$ perl -E '$a = "8783000334450000003333443330000000000";while ($a =~ /(0+)/g) { my $zero = $1; say "$zero at $-[1]\n" }'
000 at 4
 
000000 at 12
 
0000000000 at 27

On peut alors utiliser length($zero) pour connaitre la longueur de la chaine de zeros.

En tout cas, l'idée est excellente, et efficace.

[Lolo78]

Lolo, pour l'expression régulière, une simple recherche globale des tous les /(0+)/g suffit, non ?

Je voyais plutôt un join avec un séparateur (virgule) entre les chiffres pour éviter que les chiffres 40 0 ne soient interprétés comme deux zéros successifs. D'où l'expression régulière avec (0,)+. Les parties qui reconnaissent le début et la fin ne sont effectivement pas indispensables, mais je le fais assez souvent pour éviter des mauvaises surprises (reconnaissances faussement positives).

Il y avait cependant une erreur dans mon expression régulière faite un peu à la hâte hier, il me faut une seconde paire de parenthèses: ((0,)+) pour capturer toute la chaîne.