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;

[download]

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%   --

    [download]

    Benchmark

    Read more... (1130 Bytes)

    Also, I got make test failures when building?

    Read more... (2 kB)
    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.
[reply]
[d/l]
[select]
      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);

      [download]
      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%      --

      [download]

      update: benchmark results were wrong!

[reply]
[d/l]
[select]

        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.
[reply]

In Section Seekers of Perl Wisdom