Select Code to Download

vr_map => sub { # https://www.perlmonks.org/?node_id=1229415
                my @list = @input;
...
                        map { ~$_ } @list; # Doesn't even give the cor
+rect answer, there's an offset of 1
                Compare(\@list,\@output) or die "@list" if DO_CHECK;
              },

             Rate      Eily    vr_map grepfirst sortfirst        vr
Eily       5208/s        --      -53%      -64%      -67%      -71%
vr_map    11021/s      112%        --      -25%      -31%      -38%
grepfirst 14623/s      181%       33%        --       -8%      -17%
sortfirst 15977/s      207%       45%        9%        --      -10%
vr        17701/s      240%       61%       21%       11%        --