develooper Front page | perl.fwp | Postings from May 2012

seeking golfing advice

Thread Previous | Thread Next
From:
damien krotkine
Date:
May 16, 2012 04:16
Subject:
seeking golfing advice
Message ID:
CAM56AsR5kTjJ5p63o0X=jm1Cth=nXhhky+arsWGLdH7jinXSUw@mail.gmail.com
Hi,

I'm using this code to get a list of only the odd elements of an
array. The resulting list must have the same order as the array.

map { state $f; ($_) x (++$f%2) }  @array;

I'm looking for advice to make it shorter or nicer. Everything in perl
5.12 is allowed, but must pass use strict. I've failed at using the
'..' operator to act as a flip/flop operator...

thanks,
dams

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About