Re^5: Fold a list using map splices

[hypochrismutreefuzz]

You're both inspirational, guys++. However, it seems to me that you ought to put the padding at the end of the array; with the exception being that if the number of columns divides the length of the array with no remainder then you don't add the padding.

Also I think that the splice on each iteration is wasteful, so I'll just change the indexes so that each row comes out correct.

sub map_nbsp (&@) {
    my ($codeblock, $cols) = splice @_, 0, 2;
    splice @_, @_, 0, (' ')x$cols if @_ % $cols;
    my $rows = int @_/$cols;
    map{
        $codeblock->(@_[$cols*$_ .. $cols*($_+1)-1]);
    } 0 .. ($rows)-1;
}

my @tabular_data = map{ 1000+int rand 8999 } 1 .. 9;

print
    table( {border=>1},
        map_nbsp{ Tr( td( \@_ ) ); } 4, @tabular_data
    );