Re: Golf/Perlish solution to this problem?


laziness, impatience, and hubris
	PerlMonks

Re: Golf/Perlish solution to this problem?

by lidden (Curate)

Log in
Create a new user
The Monastery Gates
Seekers of Perl Wisdom
Meditations
Cool Uses For Perl
Obfuscation
Tutorials
Poetry
Reviews
Perl News
Donate
Recent Threads
Newest Nodes
Super Search
PerlMonks Discussion
What's New

on Jan 31, 2008 at 02:12 UTC ( #665256=note: print w/replies, xml )

Need Help??

in reply to Golf/Perlish solution to this problem?

Gah! Seemed easy but the best I could think of right now is:

@other_array = pop @array;
while (@array > 3) {
    push @other_array, splice @array, 0, 2;
    push @other_array, reverse splice @array, -2;
}

push @other_array, splice @array, 0, 2 if @array > 1;
push @other_array, shift @array if @array;
[download]