Re^3: Finding repeat sequences. (Results:Part 2. The winner)

[hdb]

Congrats to tobyink!

Thanks to your efforts, BrowserUK, I realized my mistakes in code and thinking. Should you ever get around to re-run your tests, here is a corrected version, don't know whether it is faster then tobyink's.

hdb => sub {
  my $input = shift;
  my $length = length $$input;
  my $i = 0;
  my $possible;
  my $j;
  while( 1 ) {
      $possible = substr $$input, 0, ++$i; 
      $possible = substr $$input, 0, $i=$j if( ($j = index $$input, $p
+ossible, $i) > 0 );
      return $possible if substr( $$input, $i ) eq substr($$input, 0, 
+$length - $i); 
  }
},