Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^3: Growing strings in search

by AnomalousMonk (Archbishop)
on Apr 21, 2020 at 00:35 UTC ( [id://11115852] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        'm_empty'     => sub { 'Y' =~ //;       },
        'm_empty_o'   => sub { 'Y' =~ //o;      },
        });
    
  2. or download this
    c:\@Work\Perl\monks\belg4mit>perl cmp_qr_compilation_1.pl
    perl version 5.008009
    ...
    m_empty      4237856/s        322%        25%          --       -16%  
    +      -68%
    m_empty_o    5068698/s        405%        50%         20%         --  
    +      -61%
    qr_interp_o 13135439/s       1208%       289%        210%       159%  
    +        --