[Bio] / FigKernelPackages / PinnedRegions.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/PinnedRegions.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11, Tue Apr 29 05:45:29 2008 UTC revision 1.12, Fri May 16 19:26:54 2008 UTC
# Line 678  Line 678 
678      {      {
679          # Input is a peg-list, which may be split into multiple sets -- the largest will be called the          # Input is a peg-list, which may be split into multiple sets -- the largest will be called the
680          # "pinned" set.          # "pinned" set.
681          my($i, $max_count);          my $i;
682            my $max_count = 0;
683          my %pinned = map {$_ => 1} @$pinned_pegs;          my %pinned = map {$_ => 1} @$pinned_pegs;
684    
685          for (my $j = 0; $j < @$color_sets; $j++)          for (my $j = 0; $j < @$color_sets; $j++)
686          {          {
687              # count how many pinned pegs are found in each set              # count how many pinned pegs are found in each set
688              my $count = scalar grep {$pinned{$_}} @{ $color_sets->[$j] };              my $count = scalar(grep {$pinned{$_}} @{ $color_sets->[$j] }) || 0;
689    
690              if ( $max_count < $count )              if ( $max_count < $count )
691              {              {

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3