On Wed, 5 Feb 2003, Graham Barr wrote:
> 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;
This discussion has reached the point of "very pretty, but what the hell
is that piece of code doing", even though I know what it _does_. Isn't
that the point to go back to the original (and I thought quite elegant)
$h = { $_ => $h } for [reverse] @r;
Surely wossname has to be criterion wossname mumble foo. Maintailability.
S.
--
Shevek
I am the Borg.
sub AUTOLOAD{my$i=$AUTOLOAD;my$x=shift;$i=~s/^.*://;print"$x\n";eval
qq{*$AUTOLOAD=sub{my\$x=shift;return unless \$x%$i;&{$x}(\$x);};};}
foreach my $i (3..65535) { &{'2'}($i); }
