comment on

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, ('&nbsp;')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
    );
[download]

In reply to Re^5: Fold a list using map splices by hypochrismutreefuzz
in thread Fold a list using map splices by hiseldl

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Don't ask to ask, just ask
	PerlMonks