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

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

my $t = 0;
grep { $t^=1 } LIST
[download]

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
[download]

my $t = 0;
map { $t++ %2 ? $_ : () } LIST
[download]

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

Replies are listed 'Best First'.
Re^2: Mini-Tutorial: Working with Odd/Even Elements by eyepopslikeamosquito (Archbishop) on Jul 10, 2009 at 07:40 UTC
`my $t = 0; grep { $t^=1 } LIST` [download] ... 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` [download]	[reply] [d/l] [select]

In Section Meditations