Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: finding longest common substring

by CombatSquirrel (Hermit)
on Nov 19, 2003 at 22:38 UTC ( #308432=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!perl -w
    use strict;
    ...
                    regex => sub { 'fooabc123' =~ /123/ }
                 } );
    cmpthese $result;
    
  2. or download this
    Benchmark: running index, regex for at least 5 CPU seconds...
         index:  6 wallclock secs ( 6.56 usr + -0.03 sys =  6.53 CPU) @ 81
    +19742.77/s
    ...
               Rate regex index
    regex 4481231/s    --  -45%
    index 8119743/s   81%    --
    
  3. or download this
    #!/usr/bin/perl
    use warnings;
    ...
       }
    });
    cmpthese $result;
    
  4. or download this
    Benchmark: running LCSIndex, LCSRegEx for at least 5 CPU seconds...
      LCSIndex:  6 wallclock secs ( 5.28 usr +  0.00 sys =  5.28 CPU) @ 34
    +63.93/s (n
    ...
               Rate LCSRegEx LCSIndex
    LCSRegEx  916/s       --     -74%
    LCSIndex 3464/s     278%       --
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2020-11-24 10:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?