Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: TIMTOWTDI Challenge: Zero'ing Out An Array

by hbm (Hermit)
on Sep 27, 2011 at 16:10 UTC ( #928111=note: print w/replies, xml ) Need Help??


in reply to TIMTOWTDI Challenge: Zero'ing Out An Array

No map??

map{pop@array}@array

Late addition:

{pop@array&&redo}

Replies are listed 'Best First'.
Re^2: TIMTOWTDI Challenge: Zero'ing Out An Array
by Corion (Pope) 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

    A fix would be to check @ARGV:

    > perl -wle "{pop@ARGV,@ARGV && redo}; print for @ARGV" 1 2 0 4 5

    ... possibly with aliasing @_ to the array:

    > perl -wle "{local *_=\@ARGV; pop && redo}; print for @ARGV" 1 2 0 4 +5

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://928111]
help
Chatterbox?
[Lady_Aleena]: perl -e 'my $var = "1.0"; print $var;' if it is in a variable also returns 1.0, though perl -e 'my $var = 1.0; print $var;' returns 1.
[1nickt]: In my case I can simply pass sprintf '%.1f', 1.0 (to Types::Standard:: Int), but what if you didn;t know the precision of the number you were working with? Seems I must be missing something. Oh well, my test list is complete, mooving on ...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (7)
As of 2017-05-24 18:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?