Re: Rosetta code: Split an array into chunks

[shevek]

How about an iterator for it?

sub gen_group_array {
    my ($group,$array) = @_;
    my ($start,$end) = (0,$group - 1);
    
    return sub {
        my $str = join ' ',@$array[$start..$end];
        $start += $group;
        $end += $group;
        return $str;        
    };
}

my @array = qw(a b c d e f);
my $group_size = 2;

my $grouping = gen_group_array($group_size,\@array);

print $grouping->() . "\n" for 1 .. ($#array+1)/$group_size;