Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Find common prefix from a list of strings

by Jenda (Abbot)
on Jul 14, 2003 at 21:11 UTC ( #274174=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    Benchmark: timing 100000 iterations of Albannach, Jenda, artist, bobn,
    + demerphq, tilly, tye, yosefm...
     Albannach:  9 wallclock secs ( 8.75 usr +  0.00 sys =  8.75 CPU) @ 11
    +424.65/s
    ...
         tilly:  4 wallclock secs ( 3.89 usr +  0.00 sys =  3.89 CPU) @ 25
    +733.40/s
           tye:  5 wallclock secs ( 4.37 usr +  0.00 sys =  4.37 CPU) @ 22
    +899.02/s
        yosefm: 25 wallclock secs (24.50 usr +  0.00 sys = 24.50 CPU) @ 40
    +82.30/s
    
  2. or download this
    @files = qw(model4run1 model4rundfsdf model2run1 model4run2 model1run1
    + modelka
    modelujeme modeluji modelme modelsdfgsdfg);
    ...
         tilly: 11 wallclock secs ( 8.01 usr +  0.02 sys =  8.03 CPU) @ 12
    +453.30/s
           tye: 11 wallclock secs (10.35 usr +  0.00 sys = 10.35 CPU) @ 96
    +58.10/s
        yosefm: 33 wallclock secs (31.75 usr +  0.00 sys = 31.75 CPU) @ 31
    +50.00/s
    
  3. or download this
    use Benchmark;
    @files = qw(model4run1 model2run1 model4run2 model1run1 model);
    ...
            tilly => sub {tilly(@files)},
            demerphq => sub {demerphq(@files)},
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (6)
As of 2020-01-25 05:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?