use strict;
use warnings;

use Benchmark qw/ timeit :hireswallclock /;
use Chart::Gnuplot;
use File::Spec::Functions 'catfile';
use File::Basename 'dirname';

my $GP = catfile dirname( $^X ), '../../c/bin/gnuplot.exe';
die unless -x $GP;              # assume Strawberry Perl

use constant REPEATS => 1;

STDOUT-> autoflush( 1 );

{
    my ( @x, @y, @datasets );
    for my $x ( map 1e6 * $_, 10 .. 80 ) {
        print "$x ";
        my $s = 'a' x $x;
        my $t = timeit REPEATS, sub { $s =~ /(.*)(*F)/ };
        my $y = $t-> [ 1 ] / $t-> [ -1 ];
        push @x, $x;
        push @y, $y;
    }
    print "\n\n";
    push @datasets, Chart::Gnuplot::DataSet-> new(
        xdata => \@x,
        ydata => \@y,
        style => 'points',
    );
    my $chart = Chart::Gnuplot-> new( 
        gnuplot  => $GP,
        terminal => 'dumb size 60, 80',
    );
    $chart-> plot2d( @datasets );
}
{
    my ( @x, @y, @datasets );
    for my $x ( map 1e2 * $_, 10 .. 80 ) {
        print "$x ";
        my $s = 'a' x $x;
        my $t = timeit REPEATS, sub { $s =~ /(.(?1)(*F))/ };
        my $y = $t-> [ 1 ] / $t-> [ -1 ];
        push @x, $x;
        push @y, $y;
    }
    print "\n\n";
    push @datasets, Chart::Gnuplot::DataSet-> new(
        xdata => \@x,
        ydata => \@y,
        style => 'points',
    );
    my $chart = Chart::Gnuplot-> new( 
        gnuplot  => $GP,
        terminal => 'dumb size 60, 80',
    );
    $chart-> plot2d( @datasets );
}