in reply to Re: Array logic!
in thread Array logic!

Reading between the lines of the post and attemptng to interprete the intent from the example given, I took the "even if first and last are incorrect" to mean the lowest and highest values in the small array.

This was the only interpretation I could make fit the data supplied.

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
If I understand your problem, I can solve it! Of course, the same can be said for you.

Replies are listed 'Best First'.
Re: Array logic!
by Abigail-II (Bishop) on Aug 06, 2003 at 12:43 UTC
    Very well, but that means your solution is wrong, as the lowest value in the small array happens to be $small [0].

    Eh, I can't read. In the example the lowest value isn't $small [0]. But what if it is?

    Abigail

[reply]
[d/l]
[select]

      You made me look:) But isn't 77.0 < 78.6?

      Examine what is said, not who speaks.
      "Efficiency is intelligent laziness." -David Dunham
      "When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller
      If I understand your problem, I can solve it! Of course, the same can be said for you.
[reply]
        Yes, I almost immediately updated my reply. But what if 
            @small = qw /78.6 78.8 79.0 80.2 79.8/;

        [download]

        But if we can assume $small [0] is correct, I suggest the following one-liner: 

            @small = do {my $i; grep {$_ eq $small [0] .. ++ $i == @small} @nu
+mbers};

        [download]

        the other numbers in @small aren'r relevant then, only how many numbers there are.

        Abigail

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom