view release on metacpan or  search on metacpan

lib/Align/Sequence.pm  view on Meta::CPAN

  
  my $Xmatches;
  @$Xmatches = grep { exists( $YPos->{$X->[$_]} ) } 0..$#$X;
  
  my $Xcurrent = -1;
  my $Ycurrent = -1;
  my $Xtemp;
  my $Ytemp;
  
  my @L; # LCS
  my $R = 0;  # records the position of last selected symbol
  my $i;
  
  my $Pi;
  my $Pi1;
  
  my $hunk;
   
  for ($i = 0; $i <= $#$Xmatches; $i++) {
    $hunk = [];
    $Pi  =  $YPos->{$X->[$Xmatches->[$i]]}->[0] // $#$Y+1; # Position in Y of ith symbol