Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Re: Re: Sorting a subset

by BrowserUk (Pope)
on Dec 12, 2003 at 19:55 UTC ( #314393=note: print w/replies, xml ) Need Help??


in reply to Re: Re: Sorting a subset
in thread Sorting a subset

It's a minor point, but as you know every string going into the sort starts with 'A', it is redundant, and much slower, to use substr within the sort block to exclude it.

return sort grep{ substr( $_ , 0, 1 ) eq 'A' } @array;

Will produce the same result more quickly.


Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
Hooray!

Replies are listed 'Best First'.
Re: Re: Re: Re: Sorting a subset
by Not_a_Number (Prior) on Dec 12, 2003 at 20:04 UTC

    You're probably right. I was going to point out the same thing, but then I noticed that the OP specifically did a numerical sort on the front-truncated string, which made me think that the original array might be something on the lines of:

    qw ( A100 B57 X22 A9 A12 A3 C2 )

    But who knows? ;-)

    dave

      Looking back at the OP, you're right, he did originally use <=>, but then changed to cmp in the later post to which I responded..


      Examine what is said, not who speaks.
      "Efficiency is intelligent laziness." -David Dunham
      "Think for yourself!" - Abigail
      Hooray!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2020-07-13 15:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?