> Actually, it would be easier to do in reduce, the undefs should
   > simply be ignored.
   > 
   > Otherwise having the user code it, becomes
   > 
   >    { defined $_[0] && defined $_[1] ? $_[0] + $_[1] 
   >            : defined $[0] ? $_[0] : $_[1] }
   > 
   > Pretty ugly.
   > 
   > And for the N case, it gets even uglier. So reduce should be able
   > to supply the next N-1 defined() values.

        $def_sum = reduce { $_[0]+$_[1] } grep {defined} @numbers;

Damian

Reply via email to