File Coverage

blib/lib/Array/Sample/Partition.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	31	31	100.0

package Array::Sample::Partition;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-05-20'; # DATE
our $DIST = 'Array-Sample-Partition'; # DIST
our $VERSION = '0.003'; # VERSION

our @EXPORT_OK = qw(sample_partition);

sub sample_partition {
    my ($ary, $n, $opts) = @_;
    $opts //= {};

    $n = @$ary if $n > @$ary;

    my @res;
    for my $i (1..$n) {
        my $idx = int($i*@$ary/($n+1));
        push @res, $opts->{pos} ? $idx : $ary->[$idx];
    }

    @res;
}

1;
# ABSTRACT: Sample elements from an array by equal partitions

__END__