Discussion :

[param_cat]

Bonjour,

Je cherche à récupérer la valeur minimum d'une map avec sa clé. Pour l'instant j'arrive à récupérer uniquement la valeur.

Ma map %dataAPI ne contient qu'une dimension, voici quelques exemples de valeurs possibles :

66211832 => 278018769
66211816 => 100018708
66215148 => 100018708
66215147 => 304018768
66215146 => 100008768

(Il peut y avoir plusieurs clés avec la même valeur)

Voici comment je procède actuellement pour récupérer la valeur minimale :
use List::Util qw(min);

my $valminAPI = min values(%dataAPI);
print "MINIMUM : ".$valminAPI."\n";

Comment puis-je faire pour récupérer une des clés de ma map correspondant à la valeur minimum. J'aimerais le faire sans utiliser de boucle. Il faut que ce soit le moins coûteux possible en temps de traitement.

Merci

[alainbb]

Faire un "reverse" du hash puis un "sort" sur les nouvelles clés, prendre la première clé et la mettre dans le nouvel hashage pour récupérer l'ancienne clé ?
Et bien lire ce qu'ils disent dans la doc sur un "reverse" d'un hashage avec des valeurs identiques perldoc -f reverse.
J'ai pas testé.

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use warnings;
use strict;
 
my %hash = (
  66211832 => 278018769,
  66211816 => 100018708,
  66215148 => 100018708,
  66215147 => 304018768,
  66215146 => 100008768,
);
my @cle = sort { $hash{$a} <=> $hash{$b} } keys %hash;
print "$cle[0] : $hash{$cle[0]}\n";

[Dimitry.e]

En un peu plus rapide (mais avec une boucle), je connais ça :

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
 
use strict;
use warnings;
 
my %hash = (
  66215146 => 100008768,
  66211832 => 278018769,
  66211816 => 100018708,
  66215148 => 100018708,
  66215147 => 304018768,
);
my ($minK,$minV) = each(%hash);
while(my ($k,$v) = each(%hash)) {
  if($v < $minV) {
    $minV = $v;
    $minK = $k;
  }
}
print $minK." -> ".$minV."\n";

Cela évite d'utiliser un sort et donc de garder une complexité en N.

[djibril]

Je ne pense pas que ton code soit plus rapide. Tout dépend de ta version de perl. sort a été grandement optimisé depuis perl 5.10. en même avant 5.10, sort est déjà robuste pour pouvoir jouer sont rôle vu qu'il est écrit en C

[Dimitry.e]

En fait, c'est plus une question de nombre d'instructions nécessaires et la version de sort utilisée ne changera malheureusement pas grand chose.

Un tri est obligatoirement plus lent que le parcours d'un tableau de taille N puisque la complexité moyenne est en N log N pour le tri rapide.

Un parcours a une complexité au pire en N.