use strict;
use warnings;
use feature 'say';
use Config;
use Benchmark 'cmpthese';

use lib '.';
use Max_score_subs ':all';

say "$^V / $Config{ archname } / $Config{ gccversion }";

my $str;
my %tests = (
    perl     => sub { mscore_perl( $str )},
    pdl      => sub { mscore_pdl( $str )},
    c        => sub { mscore_c( $str )},
    c_better => sub { mscore_c_better( $str )},
    c2f      => sub { mscore_c2f( $str )},
    f        => sub { mscore_f( $str )},
);

for my $L ( 1e3, 1e4, 1e5, 1e6, 1e7, 1e8 ) {
    say "\nString length: " . $L =~ s/(\d)(?=(\d{3})+$)/$1,/gr;
    
    $str = '1' x $L;
    substr $str, rand $L, 1 , '0' for 1 .. $L;
    
    delete $tests{ perl } if $L > 1e6;
    delete $tests{ pdl }  if $L > 1e7;
    
    cmpthese -1, \%tests;
}

__END__


v5.42.0 / MSWin32-x64-multi-thread / 13.2.0

String length: 1,000
             Rate     perl      pdl        c c_better        f      c2f
perl       6637/s       --     -90%     -99%     -99%     -99%     -99%
pdl       67389/s     915%       --     -91%     -92%     -92%     -93%
c        764229/s   11415%    1034%       --      -8%     -13%     -16%
c_better 830711/s   12416%    1133%       9%       --      -5%      -9%
f        876596/s   13108%    1201%      15%       6%       --      -4%
c2f      911910/s   13640%    1253%      19%      10%       4%       --

String length: 10,000
             Rate     perl      pdl        c c_better      c2f        f
perl        635/s       --     -94%     -99%     -99%     -99%     -99%
pdl       11113/s    1651%       --     -87%     -88%     -89%     -90%
c         86164/s   13476%     675%       --      -9%     -18%     -26%
c_better  94730/s   14826%     752%      10%       --      -9%     -19%
c2f      104655/s   16390%     842%      21%      10%       --     -10%
f        116531/s   18261%     949%      35%      23%      11%       --

String length: 100,000
            Rate     perl      pdl        c c_better      c2f        f
perl      63.1/s       --     -95%     -99%     -99%     -99%     -99%
pdl       1161/s    1741%       --     -87%     -88%     -89%     -91%
c         8934/s   14061%     669%       --      -8%     -18%     -28%
c_better  9692/s   15262%     734%       8%       --     -11%     -22%
c2f      10925/s   17216%     841%      22%      13%       --     -12%
f        12350/s   19475%     963%      38%      27%      13%       --

String length: 1,000,000
           Rate     perl      pdl        f        c c_better      c2f
perl     6.31/s       --     -94%     -99%     -99%     -99%     -99%
pdl       104/s    1554%       --     -80%     -88%     -89%     -90%
f         535/s    8370%     412%       --     -38%     -45%     -51%
c         865/s   13600%     728%      62%       --     -11%     -20%
c_better  968/s   15243%     828%      81%      12%       --     -11%
c2f      1085/s   17095%     940%     103%      26%      12%       --

String length: 10,000,000
           Rate      pdl        f        c c_better      c2f
pdl      10.1/s       --     -76%     -89%     -90%     -90%
f        41.5/s     311%       --     -53%     -57%     -61%
c        88.7/s     778%     114%       --      -8%     -16%
c_better 96.4/s     854%     132%       9%       --      -9%
c2f       106/s     947%     155%      19%      10%       --

String length: 100,000,000
           Rate        f        c c_better      c2f
f        4.39/s       --     -51%     -54%     -58%
c        8.87/s     102%       --      -7%     -14%
c_better 9.55/s     118%       8%       --      -8%
c2f      10.3/s     136%      17%       8%       --