|
|
| Perl Monk, Perl Meditation | |
| PerlMonks |
Re^3: (almost) foldlby Grimy (Beadle) |
| on Jun 08, 2011 at 21:10 UTC ( #908783=note: print w/ replies, xml ) | Need Help?? |
|
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
|
|
||||||||||||||||||||||||||||