Re^3: stack array to array of arrays

> I like this because it is small

I don't like it, IMHO it's

hard to read golfing!
not DRY
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)

Comment on Re^3: stack array to array of arrays Select or Download Code

Replies are listed 'Best First'.
Re^4: stack array to array of arrays by spandox (Novice) on Oct 17, 2013 at 17:43 UTC
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]
Re^5: stack array to array of arrays by LanX (Saint) on Oct 17, 2013 at 17:57 UTC
> 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]