6 use Benchmark qw/cmpthese/;
8 use lib qw{blib/arch blib/lib};
9 use Scalar::Vec::Util qw/vfill vcopy veq/;
17 $_[0] = 0 if $_[0] >= $n;
23 vfill => sub { vfill $x, inc($i), $n - $i, 1; },
24 vfill_pp => sub { Scalar::Vec::Util::vfill_pp($x, inc($i), $n - $i, 1); }
32 vcopy => sub { vcopy $x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j); },
33 vcopy_pp => sub { Scalar::Vec::Util::vcopy_pp($x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j)); }
40 vcopy => sub { vcopy $x, inc($i), $x, inc($j), $n - ($i > $j ? $i : $j); },
41 vcopy_pp => sub { Scalar::Vec::Util::vcopy_pp($x, inc($i), $x, inc($j), $n - ($i > $j ? $i : $j)); }
50 veq => sub { veq $x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j); },
51 veq_pp => sub { Scalar::Vec::Util::veq_pp($x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j)); }