[Perl] Trouver la plus grande et la plus petite valeur

Marsh Posté le 03-05-2004 à 17:22:30

J'ai le code immonde (selon moi) qui me permet de trouver la plus petite et la plus grande valeur de mon objet

Code :

foreach (@_) {
if ($_->total > $yAxisEnd) {
$yAxisEnd = $_->total;
}
if ($_->allowed > $yAxisEnd) {
$yAxisEnd = $_->allowed;
}
if ($_->used > $yAxisEnd) {
$yAxisEnd = $_->used;
}
if ($_->target_used > $yAxisEnd) {
$yAxisEnd = $_->target_used;
}
if ($_->limit > $yAxisEnd) {
$yAxisEnd = $_->limit;
}
if ($parameter{"projection"} && $_->projection_used > $yAxisEnd) {
$yAxisEnd = $_->projection_used;
}
if ($_->total && $_->total < $yAxisStart) {
$yAxisStart = $_->total;
}
if ($_->allowed && $_->allowed < $yAxisStart) {
$yAxisEnd = $_->allowed;
}
if ($_->used && $_->used < $yAxisStart) {
$yAxisStart = $_->used;
}
if ($_->target_used && $_->target_used < $yAxisStart) {
$yAxisStart = $_->target_used;
}
if ($_->limit && $_->limit < $yAxisStart) {
$yAxisStart = $_->limit;
}
if ($parameter{"projection"} && $_->projection_used && $_->projection_used < $yAxisStart) {
$yAxisStart = $_->projection_used;
}
}

bien entendu, je cherche un moyen efficace pour réduire ca le plus possible et que ca reste clair

si quelqu'un a une idée, merci

Reply

Marsh Posté le 03-05-2004 à 17:22:30

Reply

Marsh Posté le 03-05-2004 à 17:44:17

deja si tu pouvais acceder directement à la hash au lieu de passer par des methodes ca accelererait beaucoup la chose

sinon tu peux deja faire un truc genre

$max_local = max($_->bidule, $_->truc, $_->machin);
$max = $max_local if $max < $max_local;

Reply

Marsh Posté le 03-05-2004 à 17:54:53

en faisant deux sorts sur @_ ( un pour le max et un pour le min) et en prenant le 1er element remonté ???

Message édité par anapajari le 03-05-2004 à 17:55:15

Reply

Marsh Posté le 03-05-2004 à 18:32:46

anapajari a écrit :

en faisant deux sorts sur @_ ( un pour le max et un pour le min) et en prenant le 1er element remonté ???

ouais c'est la solution que j'ai pensé ce midi (12hrs30 ici présentement)

j'allais testé justement

Message édité par burgergold le 03-05-2004 à 18:33:47

Reply

Marsh Posté le 03-05-2004 à 18:38:47

anapajari a écrit :

en faisant deux sorts sur @_ ( un pour le max et un pour le min) et en prenant le 1er element remonté ???

ah en fait, @_ contient des objets, pas des valeurs brutes

Reply

Marsh Posté le 03-05-2004 à 18:47:02

le sort semble pas fonctionner

j'ai tenté un truc du genre

Code :

my @array1 = qw(2 3 4 5);
my @array2 = qw(6 7 8 9 10);
my @array3 = qw(1 7 8 9 10);
print ((sort {$a cmp ((sort ($a cmp $b) @array2)[0])} @array1)[0]);

ta fonction max tu la prends ou? je l'ai pas par défaut, faut surement que je load un module quelconque non?

Message édité par burgergold le 03-05-2004 à 18:51:26

Reply

Marsh Posté le 03-05-2004 à 20:41:15

Burgergold a écrit :

ah en fait, @_ contient des objets, pas des valeurs brutes

et alors?
tu déclares un sort dans ce gout la

Code :

sub mysort {
$a->letrucacomparer <=> $b->letrucacomparer;
}

et derriere tu fais

Code :

foreach( sort mysort @_ )

[edit: en fait je viens de comprendre que tu ne veux pas la plus grande et la plus petite valeur de tous tes objets mais que tu veux la plus grande valeur et la plus petite valeur de chaque objet... donc je sors ]

Message édité par anapajari le 03-05-2004 à 20:44:58

Reply

Marsh Posté le 04-05-2004 à 02:12:02

anapajari a écrit :

et alors?
tu déclares un sort dans ce gout la

Code :

sub mysort {
$a->letrucacomparer <=> $b->letrucacomparer;
}

et derriere tu fais

Code :

foreach( sort mysort @_ )

[edit: en fait je viens de comprendre que tu ne veux pas la plus grande et la plus petite valeur de tous tes objets mais que tu veux la plus grande valeur et la plus petite valeur de chaque objet... donc je sors ]

ouais mais mon sort mysort doit pas m'en vérifier que 2 mais environ 5, et jdois pas prendre les valeurs nulles

donc ca me donnera surment une fonction et non réellement une manière "plus rapide" de le faire, right?

---------------
http://www.boincstats.com/signature/user_664861.gif

Reply

Marsh Posté le 04-05-2004 à 12:17:49

up

et justement dans mysort, comment jvais faire pour plugger toutes les comparaisons et que sort sachent quoi faire

---------------
http://www.boincstats.com/signature/user_664861.gif

Reply