- veq => sub { veq $x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j); },
- veq_pp => sub { Scalar::Vec::Util::veq_pp($x, inc($i), $y, inc($j), $n - ($i > $j ? $i : $j)); }
+ veq => sub { veq $x, inc($i), $y, inc($j), len($i, $j) },
+ veq_pp => sub { Scalar::Vec::Util::veq_pp($x, inc($i), $y, inc($j), len($i, $j)) },
+ (veq_bv => sub {
+ inc($i);
+ inc($j);
+ my $l = len($i, $j);
+ $bv3->Resize($l);
+ $bv3->Interval_Copy($bv1, 0, $i, $l);
+ $bv4->Resize($l);
+ $bv4->Interval_Copy($bv2, 0, $j, $l);
+ $bv3->equal($bv4);
+ }) x $has_bv