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

Diff of /FigKernelPackages/Stats.pm

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

revision 1.4, Tue Feb 5 02:11:31 2008 UTC revision 1.5, Tue Apr 29 05:49:26 2008 UTC
# Line 271  Line 271 
271      return $self->{Map};      return $self->{Map};
272  }  }
273    
274    =head3 SortedResults
275    
276        my @sortedKeys = $stats->SortedResults();
277    
278    Return a list of the statistical keys, sorted in order from largest to
279    smallest.
280    
281    =cut
282    
283    sub SortedResults {
284        # Get the parameters.
285        my ($self) = @_;
286        # Get the map.
287        my $map = $self->{Map};
288        # Sort the keys. We negate because we want the highest values first.
289        my @retVal = sort { -($map->{$a} <=> $map->{$b}) } keys %{$map};
290        # Return the result.
291        return @retVal;
292    }
293    
294    
295  1;  1;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3