Select Code to Download

use List::Util 'sum';
sub partition {
...
    
    return 1;
}

## split 'a' through 'f' into blocks of sizes 3+2+1:
my $iter = partition( [3,2,1], qw[a b c d e f]);
...
    print "[@$_] " for @parts;
    print $/;
}

sub equipartition {
    my $parts = shift;
...

my $iter = equipartition(4 => 1..16);
...