So finden Sie die maximalen und minimalen Wert in einem Integer-array in Perl?

Ich habe ein array mit Werten 33, 32, 8, 100.

Wie finde ich den maximalen und den minimalen Wert in diesem array?

Muss ich auf irgendwelche speziellen Bibliotheken?

InformationsquelleAutor Alisha | 2012-05-22

27

Liste::Util's min und max sind in Ordnung,
```
use List::Util qw( min max );
my $min = min @numbers;
my $max = max @numbers;
```
Aber List::MoreUtils's minmax ist effizienter, wenn Sie müssen sowohl die min und den max (da spielt es weniger Vergleiche).
```
use List::MoreUtils qw( minmax );
my ($min, $max) = minmax @numbers;
```
List::Util ist ein Teil von core, aber List::MoreUtils nicht.

InformationsquelleAutor ikegami

Können Sie List::Util, diese einfach zu tun, zB.

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

InformationsquelleAutor Hasturkun

17

Ohne Module:
```
#!/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";
```
Diese verbringt ein bisschen Zeit mit der Bestellung Werte zwischen min & max, dass es bereits angetroffen haben, wobei O(N log N) Zeit, wenn es sollte nur O(N) Zeit.

InformationsquelleAutor jm666

Die Lösungen sind gut, aber wenn Sie wollen, um es selbst implementieren es ist ziemlich einfach:

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";

InformationsquelleAutor flesk

Können Sie anzeigen, um dies zu tun, ohne dass Bibliotheken:

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";

Wenn das Ergebnis nicht erfasst, verwenden Sie for klarer ist.

InformationsquelleAutor Chah

1

Sollten Sie verwenden List::Util, die veröffentlicht wurde, mit der Perl-distribution ist seit v5.7.3 so wahrscheinlich nicht brauchen, zu installieren.
```
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;
```
Ausgabe
```
8
100
```
InformationsquelleAutor Borodin
1

Ofcourse, wenn Sie wollen, sowohl der maximal-und Minimalwert einer Liste in der gleichen Zeit, ist es effizienter zu Holen, beide auf einmal; es hat nur zu führen Sie 3, um Vergleiche pro 2 Elemente von Daten, statt 4. Dies kann von Bedeutung sein, wenn die Datenmengen groß genug sind.

List::Util keine minmax Funktion aber List::MoreUtils tut.
```
use strict;
use warnings;
use feature qw( say );

use List::MoreUtils qw( minmax );

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

say $min;
say $max;
```
Eigentlich hab ich nur gesehen, ikegami gab bereits die List::MoreUtils Antwort oben. Sorry für die dummen.

InformationsquelleAutor LeoNerd

Für zahlen:

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

For strings:

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

InformationsquelleAutor Tagar

0

Ich denke Liste::Util ist, was Sie suchen.

InformationsquelleAutor w.k
0

Können Sie Statistik::Lite zu berechnen, min,max etc

InformationsquelleAutor Raghuram

Verwenden Sie die List::Util - Modul, die es wird empfohlen, zu lernen, die sowieso, genau wie 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

InformationsquelleAutor Lumi

0

Liste::Util hat der "max" und "min" - Funktionen, die Sie verwenden können, um direkt das maximum und minimum einer Liste von zahlen. Prüfen Sie, ob Sie verwenden können, dass. Sie können auch Sortieren Sie das array, und dann bestimmen die höchste und die niedrigste Zahl

InformationsquelleAutor verisimilitude

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.