Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re^2: List into two-dimensional array

by eyepopslikeamosquito (Bishop)
on Dec 14, 2020 at 20:12 UTC ( #11125192=note: print w/replies, xml ) Need Help??

in reply to Re: List into two-dimensional array
in thread List into two-dimensional array

With more List::MoreUtils:

use strict; use warnings; use Test::More tests => 2; use List::MoreUtils 'natatime'; my ($C, $R) = (4, 3); my @list = 1..12; my @AoA; my $iter = natatime($C, @list); while ( my @chunk = $iter->() ) { push @AoA, [@chunk]; } is_deeply \@AoA, [[1 .. 4], [5 .. 8], [9 .. 12]]; is_deeply \@list, [1..12];

Updated: fixed two blunders in original post. Thanks LanX.

Update: This question reminds me of another recent node: How to Split on specific occurrence of a comma

Replies are listed 'Best First'.
Re^3: List into two-dimensional array
by Anonymous Monk on Dec 15, 2020 at 02:08 UTC
    Thanks to CPAN, most things devolve into "already-thoroughly-solved problems." MoreUtils is priceless.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11125192]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2021-06-25 01:37 GMT
Find Nodes?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)

    Results (133 votes). Check out past polls.