my @temps = (69, 70, 71);
my @numbers = (0.115, 3.667, 4.78);

my ($max,$index)=(0);
$numbers[$_]>$max and (($max=$numbers[$_]),($index=$_))
  foreach 0..$#numbers;
if (defined $index) {
  print "Index:$index Max:$max Corresponding:$temps[$index]";
} else {
  print "No elements found that are larger than 0";
}
[download]

Index:2 Max:4.78 Corresponding:71
[download]

--- demerphq
my friends call me, usually because I'm late....

Clare

If the question is about Perl and the answer is not either "use a hash" or "use a module that uses a hash", the answer is probably wrong.

--
Regards,
Helgi Briem
helgi AT decode DOT is

#!/usr/bin/perl -w

use strict;

my @temps =  ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');
my $counter=0;
my $index=0;
my $largest=shift @numbers;
for (@numbers){
        $index  = $counter if ($temps[$counter++]>$largest);

}
print $temps[$index];
[download]

#!/usr/bin/perl -w

use strict;

my @temps = ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');

my $index=0;
my $largest=$numbers[0];

for (1 .. $#numbers) {
        if ($numbers[$_] > $largest){
                $largest=$numbers[$_];
                $index=$_;
        }
}
print $temps[$index];
[download]

You might want to make it a bit clearer, less obfuscated:

my @temps =  ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');
my $highNumberIndex = 0;

for (my $i = 0; $i < @number; $i++)
{
  if ($numbers[$highNumberIndex] < $numbers[$i])
  {
    $highNumberIndex = $i;
  }
}
print $temps[$highNumberIndex];
[download]

You might want to make it a bit clearer, less obfuscated:

Likewise. for(;;) is a dirty C trick that doesnt really belong in perl. Especially when the replacement is easier to understand, less prone to error and most importantly more efficient.

y @temps =  ('69', '70', '71');
my @numbers = ('0.115', '3.667', '4.78');
my $highNumberIndex = 0;

for my $i (0..$#number)
{
  if ($numbers[$highNumberIndex] < $numbers[$i])
  {
    $highNumberIndex = $i;
  }
}
print $temps[$highNumberIndex];
[download]

And this isnt a valid solution as if the list is empty we get a false return of 0.

--- demerphq
my friends call me, usually because I'm late....

This is predicated on @numbers being sorted, a precondition we werent provided with, furthermore if the list is empty it returns an incorrect result. Ie 0.

Sorry, I misread the shift() as somehow being pop(). (/note to self, get glasses checked, and reduce the caffiene intake :-) But its still does return a 0 if there are no elements...

--- demerphq
my friends call me, usually because I'm late....

my (@temps, @numbers); 
my ($ind, $maxind, $max) = (-1, -1, $num[0]);
for my $num (@numbers) {
   $ind++;
   $maxind = $ind, $max = $num if $num > $max;
}
my $maxtemp = $temps[$maxind];
[download]

pike

From what I recall, it is ineffective to access list elements by index

Any chance you might throw together a benchmark so we can see?

Also, while your solution does distinguish between an empty list and the highest being at 0, it'll die on the last line if the array is empty.

--- demerphq
my friends call me, usually because I'm late....