Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: Mini-Tutorial: Working with Odd/Even Elements

by Anonymous Monk
on Jul 09, 2009 at 18:44 UTC ( #778654=note: print w/ replies, xml ) Need Help??


in reply to Mini-Tutorial: Working with Odd/Even Elements

my $t = 0; grep { $t^=1 } LIST
using the XOR operator in XOR-equal is bordering on line-noise. This seems to have a low likely hood of being understood on the first pass by the next person to see it. (This next person had to go check perlop). That said, I'm totally using it the next time I play golf.

Mixing both of your two forms we get these nice options:

my $t = 0; #even elements #my $t= 1; #odd elements grep { $t++ % 2 } LIST
my $t = 0; map { $t++ %2 ? $_ : () } LIST
Am I wrong to expect people to be more familiar with '%' than with '^'?


Comment on Re: Mini-Tutorial: Working with Odd/Even Elements
Select or Download Code
Re^2: Mini-Tutorial: Working with Odd/Even Elements
by eyepopslikeamosquito (Canon) on Jul 10, 2009 at 07:40 UTC

    my $t = 0; grep { $t^=1 } LIST
    ... That said, I'm totally using it the next time I play golf.
    No. In golf, the --$| magical flip-flop is shorter. For example:
    grep--$|,LIST

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2014-11-27 06:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (180 votes), past polls