Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Custom Sort An AoA

by Corion (Pope)
on Apr 01, 2014 at 16:10 UTC ( #1080597=note: print w/ replies, xml ) Need Help??

in reply to Custom Sort An AoA

The general trick is to append your additional sort criteria to the sort block.

@list= sort { @$a <=> @$b || ... secondary criterion ... || ... tertiary criterion ... } @list;

So all that remains is to find the appropriate expression to find and compare the last elements of each array:

$a->[-1] cmp $b->[-1] # untested

Taken together, your sort expression would be

@list= sort { @$a <=> @$b || $a->[-1] cmp $b->[-1] } @list;

Comment on Re: Custom Sort An AoA
Select or Download Code
Replies are listed 'Best First'.
Re^2: Custom Sort An AoA
by Limbic~Region (Chancellor) on Apr 01, 2014 at 17:09 UTC
    I must not have done a good job of explaining.

    Start at the last element and if they are equivalent then check the next to the last and if they are equivalent check the next to the next to the last....

    Your solution fails to produce the correct output because you are only comparing the last element.

    Cheers - L~R

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1080597]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2015-11-25 04:57 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (670 votes), past polls