Re: printing every 2nd entry in a list backwards

[KurtZ]

Print is slow, you can try to speed up your solution by taking it out of the loop

print map {$i++ & 1 ? "" : "$_ "} reverse split(/ /);

Also a common trick for a flip flop boolean state is inversion with xor $i^=1

---

In hindsight you want grep not a map

$,=" ";
print grep { $i^=1 } reverse split(/ /);

---

updated $,=" " , haukex++

[Anonymous Monk]

Don't forget about

$, = " "

to make sure the output is properly formatted.

[Anonymous Monk]

The one with grep is amazingly fast, kudos