Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: Sorting Alphanumeric Arrays

by salva (Canon)
on Jun 13, 2005 at 20:26 UTC ( [id://466286]=note: print w/replies, xml ) Need Help??


in reply to Re: Sorting Alphanumeric Arrays
in thread Sorting Alphanumeric Arrays

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!

Replies are listed 'Best First'.
Re^3: Sorting Alphanumeric Arrays
by BrowserUk (Patriarch) on Jun 13, 2005 at 22:01 UTC
    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!

        Nice module. I especially like the in-place options.

        A couple of questiosn I haven't been able to answer from the POD:

        • What is the difference between types 'int' & 'integer', 'num' & 'number'?
        • Does the module respect magic?

        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.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (4)
As of 2024-04-25 13:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found