Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: (GOLF) combine N arrays

by jynx (Priest)
on Apr 16, 2002 at 21:22 UTC ( #159629=note: print w/ replies, xml ) Need Help??


in reply to (GOLF) combine N arrays


Without looking at others solutions,

Here's the best i can come up with. It's got a hack or two, but it seems to test out correctly. *sigh*, i am learning from the TPR challenges that i am not very good at golf, but it's still fun :)

enjoy,
jynx

sub combinations { #58+58=116 #23456789_123456789_123456789_123456789_123456789_123456789_ my@a;$;=@{$_[0]}**@_;while($a=pop){$==0;for$a((@$a)x($;>>( $b=@$a**@_)||1)){push@{$a[$=++]},$a for+1..$b}}@a[0..$;-1] }
update: *sigh* back to the drawing board, the above version doesn't deal with multiple array lengths. The following does, but it's much longer...
sub attempt2 { #66+65=131 #23456789_123456789_123456789_123456789_123456789_123456789_123456789_ my%a;$-=(@_=sort{@$b<=>@$a}@_);$;=1;map$;*=@$_,@_;while($a=pop){$= =0;for$a((@$a)x($;/@$a)){push@{$a{$=++}},$a}}grep$-==@$_,values%a }


Comment on Re: (GOLF) combine N arrays
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (13)
As of 2014-07-29 17:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (225 votes), past polls