Re^3: (almost) foldl

[Grimy]

in reply to Re^2: (almost) foldl
in thread (almost) foldl

sub sum { eval 'pop(@_)+' x ($#_ + 1) . '0'; }

@list = (-4, 15, -5, 2.5);
print sum @list;            # 8.5, as expected
print sum -4, 15, -5, 2.5;  # Works the same
print sum;                  # 0 (not undef)

EDIT: replaced $#list with $#_ , so that it works with lists of any length. Silly me.