Select Code to Download

pdl> p $im

...
[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]

pdl>

use strict;
use warnings;
...
         [ $y( $start:$stop )-> minmax ]]
    } 1 .. $runs-> nelem - 1 ]
}

          s/iter pdl_naive     regex       pdl
pdl_naive   5.53        --      -73%      -81%
regex       1.51      266%        --      -29%
pdl         1.07      417%       41%        --

use strict;
use warnings;
...
    zeroes => sub { $zeroes-> qsort },
    bads   => sub { $bads->   qsort },
});

         Rate zeroes   bads
zeroes 2.81/s     --   -67%
bads   8.42/s   200%     --

sub get_bboxes_pdl_bad {
    my $flat      = $sgm-> flat-> setvaltobad( 0 );
...
         [ $y( $start:$stop )-> minmax ]]
    } $runs-> list ]
}

        s/iter   regex     pdl pdl_bad
regex     1.51      --    -30%    -87%
pdl       1.06     42%      --    -81%
pdl_bad  0.203    641%    421%      --

my $idx = $flat-> qsorti-> slice([ 0, $flat-> ngood - 1 ]);