Discussion :

[Leishmaniose]

Salut,

Je voudrais bien savoir : est ce qu'il existe des fonctions ou des expressions régulières qui me permettent de comparer 3 (ou plus) scalaires numériques entre eux et de me rendre le plus grand sans passer par des boucle imbriquées et/ou successives ?

J'espère que je ne dis pas de bétises

Merci

[2Eurocents]

Code :

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

1
2
3
my @liste=(23, 45, 13, 76, 8, 31);
my $max=$liste[0];
map { $max = $_ if ($_ > $max) } @liste;

Ca devrait le faire ...

Un peu d'explication ?

On initialise notre maximum $max à la première valeur.
On fait ensuite un parcours de toute la liste avec la fonction map, à qui on donne entre accolades le traitement à faire.

On aurait tout aussi bien pu écrire :

Code :

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

1
2
3
my @liste=(23, 45, 13, 76, 8, 31);
my $max=$liste[0];
$max = $_ if ($_ > $max) foreach (@liste);

Ca marche très bien aussi ...

[Leishmaniose]

Merci beaucoup, ça marche à merveille.

[nematoad]

Il y a aussi

Code :

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

1
2
3
4
5
 
use List::Util 'max';
 
my @liste=(23, 45, 13, 76, 8, 31);
my $max = max @liste;