Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Sorting Alphanumeric Arrays

by BrowserUk (Patriarch)
on Jun 13, 2005 at 20:06 UTC ( [id://466274]=note: print w/replies, xml ) Need Help??


in reply to Sorting Alphanumeric Arrays

my @old=("99B","99","99A","100A","100","101","88"); print sort{ $^W=0; $a <=> $b or $a cmp $b } @old; 88 99 99A 99B 100 100A 101

Of course, you can tart that up with a GRT or ST for efficiency if the size of your dataset warrents it.


Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.

Replies are listed 'Best First'.
Re^2: Sorting Alphanumeric Arrays
by salva (Canon) on Jun 13, 2005 at 20:26 UTC
    GRT or ST are not the fastest ways to sort in perl anymore:
    use Sort::Key::Maker sort_int_str => sub { int $_, $_ }, qw(int str); my @sorted = sort_int_str @old;

    updated: using a regular expresion like /(\d+)(.*)/ to extract the keys was slow!

      GRT or ST are not the fastest ways to sort in perl anymore:

      Bold claim, but in my tests a simple sort wins from 10 to 1000+ data items, with a GRT taking over from 10,000 upto 1 million data items:

      P:\test>466286 -N=10 Rate S::M GRT sort S::M 15958/s -- -22% -60% GRT 20443/s 28% -- -49% sort 39790/s 149% 95% -- P:\test>466286 -N=100 Rate S::M GRT sort S::M 1814/s -- -17% -40% GRT 2173/s 20% -- -28% sort 3024/s 67% 39% -- P:\test>466286 -N=1000 Rate S::M GRT sort S::M 157/s -- -5% -21% GRT 166/s 6% -- -17% sort 200/s 27% 20% -- P:\test>466286 -N=10000 Rate S::M sort GRT S::M 13.2/s -- -2% -3% sort 13.5/s 2% -- -0% GRT 13.6/s 3% 0% -- P:\test>466286 -N=100000 Rate sort S::M GRT sort 0.938/s -- -7% -11% S::M 1.01/s 7% -- -4% GRT 1.05/s 12% 4% -- P:\test>466286 -N=1000000 (warning: too few iterations for a reliable count) (warning: too few iterations for a reliable count) (warning: too few iterations for a reliable count) s/iter sort S::M GRT sort 13.8 -- -8% -22% S::M 12.7 9% -- -16% GRT 10.7 29% 19% --

      Benchmark

      Also, I got make test failures when building?


      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
      "Science is about questioning the status quo. Questioning authority".
      The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.
        oops... the problem was using a regular expresion to extract the keys, try
        use Sort::Key::Maker sort_num_str => sub { int($_), $_ }, qw(int str);
        this way I got...
        salva@cabo:/tmp$ perl /tmp/skm.pl 100 Rate GRT sort S::K::M GRT 945/s -- -2% -26% sort 967/s 2% -- -25% S::K::M 1282/s 36% 33% -- salva@cabo:/tmp$ perl /tmp/skm.pl 1000 Rate sort GRT S::K::M sort 61.0/s -- -20% -40% GRT 75.8/s 24% -- -25% S::K::M 101/s 66% 34% -- salva@cabo:/tmp$ perl /tmp/skm.pl 100000 s/iter sort GRT S::K::M sort 3.38 -- -43% -49% GRT 1.92 76% -- -10% S::K::M 1.73 96% 11% --

        update: benchmark results were wrong!

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others pondering the Monastery: (7)
As of 2024-03-28 08:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found