Comment trouver la valeur maximale et minimale dans un tableau d'entiers en Perl?

J'ai un tableau avec des valeurs 33, 32, 8, 100.

Comment puis-je trouver le maximum et le minimum de la valeur dans ce tableau?

Dois-je inclure toutes les bibliothèques spécialisées?

source d'informationauteur Alisha

  1. 26

    List::Util's min et max sont beaux,

    use List::Util qw( min max );
my $min = min @numbers;
my $max = max @numbers;

    Mais Liste::MoreUtils's minmax est plus efficace lorsque vous avez besoin de le min et le max (parce qu'il n'moins de comparaisons).

    use List::MoreUtils qw( minmax );
my ($min, $max) = minmax @numbers;

    List::Util est la partie de base, mais la Liste::MoreUtils ne l'est pas.

  2. 20

    Vous pouvez utiliser List::Util le faire facilement, par exemple.

    use List::Util qw(min max);
my @arr = (33, 32, 8, 100);
print min(@arr)," ", max(@arr), "\n";
  3. 17

    Sans modules:

    #!/usr/bin/perl
use strict;
use warnings;
my @array = sort { $a <=> $b } qw(33 32 8 100);
print "min: $array[0]\n";
print "max: $array[-1]\n";
  4. 10

    Les solutions apportées sont bonnes, mais si vous voulez mettre en œuvre vous-même c'est assez simple:

    use strict;
use warnings;

my @array = (33, 32, 8, 100);
my ($min, $max);

for (@array) {
    $min = $_ if !$min || $_ < $min;
    $max = $_ if !$max || $_ > $max
};

print "min: $min\n";
print "max: $max\n";
  5. 2

    Vous pouvez utiliser la carte pour faire cela sans avoir besoin de bibliothèques:

    my @array = (33, 32, 8, 100);
my ($max,$min)=(-1e99,1e99); # Initialize to values outside anything in your list
map {$max=$_ if ($_>$max); $min=$_ if($_<$min);} @array;
print "max=$max, min=$min\n";
  6. 1

    Vous devez utiliser List::Util qui a été publié avec la distribution Perl depuis la v5.7.3 alors, probablement, n'a pas besoin de l'installer.

    use strict;
use warnings;

use feature 'say';

use List::Util qw/ max min /;

my @data = (33, 32, 8, 100);

say min @data;
say max @data;

    sortie

    8
100
  7. 1

    Bien sûr, si vous souhaitez à la fois le maximum et le minimum de la valeur d'une liste, dans le même temps, il est plus efficace de récupérer les deux à la fois; il n'a qu'à effectuer 3 de l'ordre des comparaisons par 2 éléments de données, plutôt que 4. Ce peut importe si les ensembles de données sont assez gros.

    List::Util n'est pas un minmax fonction, mais List::MoreUtils.

    use strict;
use warnings;
use feature qw( say );

use List::MoreUtils qw( minmax );

my ( $min, $max ) = minmax @data;

say $min;
say $max;
  8. 1

    Pour les nombres:

        my ($min,$max) = (sort {$a <=> $b} @array)[0,-1];

    Pour les chaînes:

        my ($min,$max) = (sort {$a cmp $b} @array)[0,-1];
  9. 0

    Je pense que List::Util est ce que vous cherchez.

  10. 0

    Vous pouvez utiliser Statistiques::Lite pour calculer min,max, etc

  11. 0

    Utiliser le List::Util moduleil est recommandé de se familiariser avec de toute façon, tout comme List::MoreUtils:

    D:\ :: perl -MList::Util=max -lwe "print max 324, 43, 53, 3532, 43"
3532

D:\ :: perl -MList::Util=min -lwe "print min 324, 43, 53, 3532, 43"
43
  12. 0

    List::Util a le "max" et "min" les fonctions que vous pouvez utiliser directement trouver le maximum et le minimum, étant donné une liste de nombres. Vérifiez si vous pouvez l'utiliser. Vous pouvez également trier le tableau et, ensuite, de déterminer le plus élevé et le plus faible nombre