# # 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; } }