Select Code to Download

#!/usr/bin/perl

...
      my @e; push @e, 0 for 1 .. grep !( $_ % 2 ), @c;
   },
} );

           Rate map_grep      for grep_for      map     for2   grep_x
map_grep 10.6/s       --     -27%     -43%     -47%     -51%     -54%
...
map      18.8/s      56%      27%       8%       --     -14%     -21%
for2     21.9/s      82%      48%      26%      16%       --      -8%
grep_x   23.7/s      97%      60%      37%      26%       8%       --