Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^5: Finding repeat sequences.

by BrowserUk (Pope)
on Jun 20, 2013 at 15:11 UTC ( #1039988=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        hdb => sub {
           my $input = shift;
    ...
               return $possible if substr( $$input, $i ) eq substr($$input
    +, 0, $length - $i);
           }
        },
    
  2. or download this
    i: 1 : l:1
    i:1 j:1 : l:1
    ...
    i: 195 : l:195
    i:64000 j:64000 : l:64000
    b:64000 in s:  64020675        hdb :: 2.743027 s