- or download this
a bb c
d e f
g h
- or download this
use strict;
use warnings;
...
my $v2 = chunk_array(3, "a", "bb", "c", "d", "e", "f");
$v2 eq "a bb c\nd e f\n" or die "error: '$v2'\n";
print $v2;
- or download this
use List::MoreUtils qw(part natatime);
...
my $i = 0;
return join "", map { join(" ", @$_)."\n" } part { $i++/$n } @vals
+;
}
- or download this
from itertools import *
...
def chunk_array(n, vals):
return "".join(" ".join(x for x in i if x!=None)+"\n" for i in group
+(n, vals))