#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#



###
### partitions
###

## Chapter 5 section 2

# Compare two partitions for preferred order
sub partitions {
  for my $i (0 .. $#$a) {
    my $cmp = $b->[$i] <=> $a->[$i];
    return $cmp if $cmp;
  }
}