note
johngg
<p>Another recursive solution using a subroutine that takes a block of code to execute against a "chunked" list.</p>
<code>
use strict;
use warnings;
use 5.010;
sub groupsOf (&$@);
my @list = ( q{a} .. q{z} );
say for groupsOf { qq{@_,} } 5, @list;
say for groupsOf { qq{@_,} } 7, @list;
sub groupsOf (&$@)
{
my $rcToRun = shift;
my $groupsOf = shift;
my $rcDoIt;
$rcDoIt = sub
{
$rcToRun->(
map shift, 1 .. ( @_ < $groupsOf ? @_ : $groupsOf )
),
@_ ? &$rcDoIt : ();
};
&$rcDoIt;
}
</code>
<p>I hope this is of interest.</p>
<p><b>Update: </b>Oops, forgot to post the output :-(</p>
<code>
a b c d e,
f g h i j,
k l m n o,
p q r s t,
u v w x y,
z,
a b c d e f g,
h i j k l m n,
o p q r s t u,
v w x y z,
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-401112">
<p>Cheers,</p><p>JohnGG</p>
</div></div>
985857
985857