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