Perl

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Trouver la plus grande et la plus petite valeur

burgergold

5$? va chez l'diable!

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

Publicité

pospos

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;

anapajari

s/travail/glanding on hfr/gs;

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

burgergold

5$? va chez l'diable!

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

burgergold

5$? va chez l'diable!

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

burgergold

5$? va chez l'diable!

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

anapajari

s/travail/glanding on hfr/gs;

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

burgergold

5$? va chez l'diable!

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 @_ )

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

burgergold

5$? va chez l'diable!

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

FORUM HardWare.fr

Programmation

Perl

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

Sujets relatifs
[PERL] un equivalent en perl du awk ou cut en shell ??	[Perl] Fonction avec paramètres optionnels
[perl] est ce correct ??	interfacer du perl en c++
[Perl] Besoin d'un ti coup de pouce pour une regexp	Pb perl
[perl] Faire une page d'attente en CGI	perl et linux
[VB6] Comment faire passer une valeur d'un formulaire à un autre	perl et df
Plus de sujets relatifs à : [Perl] Trouver la plus grande et la plus petite valeur

Page générée en 0.069 secondes