On Wed, Feb 05, 2003 at 08:27:08AM -0800, Randal L. Schwartz wrote:
> >>>>> "Jasper" == Jasper McCrea <[EMAIL PROTECTED]> writes:
>
> Jasper> $h = { $_ => $h || {} } for reverse @r;
And that could be done as
$h = reduce {{$b,$a}} {}, reverse @r;
using List::Util, if it did not trigger a bug in reduce :)
$h = reduce {my$x={$b,$a}} {}, reverse @r;
avoids it though
Graham.
