in reply to Re: stack array to array of arrays
in thread stack array to array of arrays

I like this because it is small - HOWEVER it is destructive of the original array. It does often work for me though. in my code it looks like 
my @array = qw(0 a b c e 1 2 3 4 5 3 f w);
my $len = 4;
print oxTable->new([ 
   map [splice @array,0,$len], 0..$#array/$len 
    ]);

[download]
Produces 
+--+--+--+--+
|0 |a |b |c |
|e |1 |2 |3 |
|4 |5 |3 |f |
|w |  |  |  |
+--+--+--+--+

[download]

Replies are listed 'Best First'.
Re^3: stack array to array of arrays
by LanX (Saint) on Oct 17, 2013 at 15:17 UTC
    > I like this because it is small

    I don't like it, IMHO it's

    1. hard to read golfing!
    2. not DRY
    3. and furthermore buggy in edge cases.

    you might get used to it, but the next one to maintain your code wont be "pleased".

    > It does often work for me though.

    Look! If you need it often, so why don't you just use your custom routine?

    Just compare the overhead to document this hack with just encapsulating all the infos in a sub!

    Or use something from List::MoreUtils ?

      DB<117> use List::MoreUtils qw/part/;

  DB<118> my $i; part {$i++ %3} a..h
 => (["a", "d", "g"], ["b", "e", "h"], ["c", "f"])

  DB<119> use feature 'state'; part {state $i++ %3} a..h
 => (["a", "d", "g"], ["b", "e", "h"], ["c", "f"])

    [download]

    update

    oops sorry, this transposed the matrix, corrected code:

      DB<139> use feature "state";  part {state $i++/3} a..h
 => (["a", "b", "c"], ["d", "e", "f"], ["g", "h"])

    [download]

    Cheers Rolf

    ( addicted to the Perl Programming Language)

[reply]
[d/l]
[select]
      ooooh - I like it; when it comes to the actual call it is small. 
      use feature 'state';
use List::MoreUtils qw(part);
...

print oxTable->new([ 
      part { state $i++ / $len } @array
]);

      [download]
      My problem is that it requires a lot of extra includes...
      It also breaks down on the same edge ($len = 0);
      It also requires a temp variable.
      It may be worth it to just stay with. 
      sub arrayStack 
{
    my $len= pop;
    return map [splice @_,0,$len], 0..$#_/$len;
}

...

print oxTable->new([ 
        arrayStack(@array,$len)
    ])

      [download]

      But it was a worthy exercise.... I actually never thought to use a counter as the inputted array and splicing off of the named array.

[reply]
[d/l]
[select]
        > It also breaks down on the same edge ($len = 0);

        No thats another edge! But what exactly is $len=0 supposed to mean?

        update

        > It may be worth it to just stay with. ...

        If I were you I would pass len as first parameter.

        > My problem is that it requires a lot of extra includes...

        feature is not an include but a pragma like strict.

        And IMHO List::MoreUtils should be put into core... (and extended)

        Cheers Rolf

        ( addicted to the Perl Programming Language)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom