Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Advanced Sorting - GRT - Guttman Rosler Transform

by Juerd (Abbot)
on Aug 10, 2003 at 10:07 UTC ( #282591=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    Benchmark: running bare, grt, st for at least 3 CPU seconds...
          bare:  6 wallclock secs ( 3.08 usr +  0.01 sys =  3.09 CPU) @ 12
    +79584.47/s (n=3953916)
    ...
    grt  1118146/s   --  -2% -13%
    st   1146781/s   3%   -- -10%
    bare 1279584/s  14%  12%   --
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
            my @sorted = sort { ($a =~ tr/eE/eE/) <=> ($b =~ tr/eE/eE/) } 
    +@words;
        }
    });
    
  3. or download this
    This is perl, v5.8.0 built for i686-linux
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2014-12-23 05:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (135 votes), past polls