Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: removing arbitrary elements from an array?

by gronkulator (Sexton)
on Mar 15, 2000 at 21:31 UTC ( #5431=note: print w/replies, xml ) Need Help??


in reply to removing arbitrary elements from an array?

ugly hack - pruning an array by value by checking each element sequentially

@deck=(0 ... 51); $card=32; prune_deck($card, \@deck); print join("\n",@deck); sub prune_deck ( my $dupe = shift; # we assign $dupe to the id of the card we just +pulled my $deckref = shift; my @remainder; # a scratch array to hold what's left for my $card (@{$deckref}) { $card eq $dupe ? next : push(@remainder, $card); # save curren +t card if not the one we pulled } @{$deckref}=(undef); # empty the deck push @{$deckref}, @remainder; # push back the remainder 1; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://5431]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2023-02-09 13:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (45 votes). Check out past polls.

    Notices?