#! perl -slw
use strict;
use Time::HiRes qw( gettimeofday tv_interval );

my $re = '';
$re .="(?:(?:(.)(?:\\$_*))|\$)" for 1 .. 500; $re = qr/$re/o;
my @chars = ( "A" .. "Z", "a" ..  "z", 0 .. 9, qq( ),qw(! @ $ % ^ & *) );

for ( 0 .. 100 ) {

   my $max_size = int(rand(600)) + 2;
   my $stn = "";
   $stn .= @chars[rand @chars] x int(rand(9)) for 1 .. $max_size;

   my $iterations = int(rand(600)) + 500;
   print 'STRING:', $stn;
   print 'Iterations: ', $iterations;
   print 'Length: ', length($stn);

   for my $sub ( qw/Enlil_2 Dingus_1 PhiRatE_2 Rasta_1 TommyW_1 Robartes_1 BrowserUk Dingus_2 Enlil_1/ ){  #! p_process_2/ ) {
       my $res;
       my $t0 = [gettimeofday];
       for (1..$iterations) {
           no strict 'refs';
           $res = &{$sub}($stn);
       }
       printf "%20s: %7.5f sec/iteration found:%3d\n",  $sub, tv_interval( $t0 )/$iterations,  scalar @$res;
   }
}


sub BrowserUk {
  $_ = shift;
  my @c =  m/$re/;
  $#c = $#- -1;
  return \@c;
}

sub Enlil_1 {
  $_ = shift;
  my @bah;
  my $old_pos = 0;
  while ( /((.)\2*)/g ) {
    push @bah, [$2,$old_pos,length($1)];
    $old_pos = pos();
  }
  return \@bah;
}

sub Enlil_2 {
  $_ = shift;
  my @bah;
  while ( /((.)\2*)/g) {
    push (@bah, [$2,$-[1],$+[1] - $-[1]]);
  }
  return \@bah;
}

sub Dingus_1 {
  my $string = shift;
  my ($p, $c, $i, @res) = (0, substr($string,0,1));

  for ($i=1; $i<length($string); $i++) {
    next if ($c eq substr($string,$i,1));
    push (@res, [$c,$p,($i-$p)]);
    $c = substr($string,$i,1);
    $p = $i;
  }
  push (@res, [$c,$p,($i-$p)]);
  return \@res;
}

sub Dingus_2 {
  $_ = shift;
  my (@res, $i, $p);
  $i = 0;
  while ( /(.)\1*/g ) {
    push (@res, [$1,  $i, pos()-$i]);
    $i = pos;
  }
  return \@res;
}

sub Rasta_1 {
  $_ = shift;
  my ($pp, $l, @res, $c) = (0, length);
  while ($pp < $l) {
    $c = substr $_, $pp, 1;
    if ( /\G\Q$c\E+/gc ) {
      push @res,[$c, $pp, pos() - $pp];
      $pp = pos;
    }
  }
  return \@res;
}

sub TommyW_1 {
    $_ = shift;
  my ($pos, @triples) = (0);

  my @reps= /((.)\2*)/g;

  while (@reps) {
    my $hits=shift @reps;
    my $char=shift @reps;
    push @triples, [$char, $pos, length $hits];
    $pos+=length $hits;
  }
  return \@triples;
}

sub Robartes_1 {
  my $string = shift;

  my ($currstart, $index, @res) = (0, 0);
  my @listedstring = split//, $string;
  my $prev = shift @listedstring;

  for (@listedstring) {
    if ($_ eq $prev) {
      $index++;
    } else {
      push @res, [$prev, $currstart, $index-$currstart+1];
      $currstart=++$index;
      $prev=$_;
    }
  }
  push @res, [$prev, $currstart, $index-$currstart+1];
  return \@res;
}

sub PhiRatE_2 {
  $_ = shift;

  my ($count, $i, $prev, $next, @res) = (0, 0);

  $prev = $next = chop($_);

  while ($next || $prev) {
    if ($prev eq $next) {
      $count++;
    } else {
      push @res,[$prev, $i=$count, $count];
      $prev = $next;
      $count = 1;
    }
    $i++;
    $next = chop;
  }
  return \@res;
}