Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^3: Max value

by ameezys (Acolyte)
on Apr 17, 2019 at 09:02 UTC ( [id://1232704]=note: print w/replies, xml ) Need Help??


in reply to Re^2: Max value
in thread Max value

A couple of changes would be required if you can have several maximum values (such as using an array of the indices with the max value and adding a test for equality), but this is left as an exercise to the reader.

Mind showing an example for that? I still don't understand how to do it.

Replies are listed 'Best First'.
Re^4: Max value
by Laurent_R (Canon) on Apr 17, 2019 at 09:18 UTC
    Perhaps something like this (still untested): 
    my @max_i;
my $max = $arrayh[0];
for my $i (0..$#arrayh) {
    if ($arrayh[$i] > $max) {
        $max = $arrayh[$i];
        @max_i = ($i);
    } elsif ($arrayh[$i] == $max) {
        push @max_i, $i;
    }
}
print " Max values are: \n"
print "- $wire[$_]\n" for @max_i;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1232704]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others lurking in the Monastery: (5)
As of 2024-04-19 20:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found