Re: TIMTOWTDI Challenge: Zero'ing Out An Array

No map??

map{pop@array}@array
[download]

Late addition:

{pop@array&&redo}
[download]

Comment on Re: TIMTOWTDI Challenge: Zero'ing Out An Array Select or Download Code

Replies are listed 'Best First'.
Re^2: TIMTOWTDI Challenge: Zero'ing Out An Array by Corion (Patriarch) on Sep 28, 2011 at 08:19 UTC
That won't work if the array contains a zero or an empty string: `> perl -wle "{pop@ARGV && redo}; print for @ARGV" 1 2 0 4 5 1 2` [download] A fix would be to check `@ARGV`: `> perl -wle "{pop@ARGV,@ARGV && redo}; print for @ARGV" 1 2 0 4 5` [download] ... possibly with aliasing `@_` to the array: `> perl -wle "{local *_=\@ARGV; pop && redo}; print for @ARGV" 1 2 0 4 +5` [download]	[reply] [d/l] [select]