in reply to Re^2: (almost) foldl
in thread (almost) foldl
Nice! But
print eval join "+", ("1e", 6)
yields 1000000, whereas my aforementioned solution:
print sub {eval 'pop(@_)+' x ($#_ + 1) . '0';}->("1e", 6);
prints the expected result, 7. Ok, ok, I'm quibbling.
In Section
Obfuscated Code