Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

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;

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 all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2018-05-24 18:28 GMT
Find Nodes?
    Voting Booth?