Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Condensing a grep into a sort

by Roy Johnson (Monsignor)
on Jun 09, 2009 at 17:26 UTC ( #770019=note: print w/ replies, xml ) Need Help??


in reply to Condensing a grep into a sort

It is not reasonable to have a sort that excludes members of the list entirely. Sort rearranges lists; grep filters them.

What you might want to do is a Schwartzian Transform so that the regex doesn't need to be applied to $a and $b repeatedly.

print map {"$_->[0]\n"} sort {$a->[1] <=> $b->[1]} map { [$_, (/C(\d*)/)[0]] } grep { /P/} @compounds;
Hoping for partial credit, I eliminated the join.

Caution: Contents may have been coded under pressure.


Comment on Re: Condensing a grep into a sort
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2015-07-04 06:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (58 votes), past polls