Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl

...
                  'first' => sub { my $result = first { $_ } @$array }
+,
              })
}

Select or download this

START:
          Rate   grap   grep  grap2  grap3  first
...
grap2  898/s   19%    1%    --  -63%  -84%
first 2400/s  218%  170%  167%    --  -56%
grep  5493/s  627%  517%  512%  129%    --