use strict;
use warnings;
use PDL;
use Benchmark 'cmpthese';

my $x      = (( random 10_000_000 ) * 2**16 )-> ushort;
my $bads   = $x-> setbadif( $x > 2**13 );  # 88% is dull 'background'
my $zeroes = $bads-> setbadtoval( 0 );

cmpthese( 5, {
    zeroes => sub { $zeroes-> qsort },
    bads   => sub { $bads->   qsort },
});