# # 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 . # ### ### concatenate-continuation ### ## Chapter 8 section 8.1 sub concatenate { my (@p) = @_; return \¬hing if @p == 0; my $p0 = shift @p; return $p0 if @p == 0; return concatenate2($p0, concatenate(@p)); }