Re: (Golf as well): List of Partitions

by Masem (Monsignor)

on May 06, 2001 at 16:54 UTC ( [id://78346]=note: print w/replies, xml )

Need Help??

Here's one that is 65 characters, returns as array of arrays, but has duplicates (though the orders are unique).

sub P {
$_[0]?map{my$c=$_;map[$c,@$_],P($_[0]-$c)}(1..$_[0]):[]
}
[download]

Update: Same thing, but avoids repetitions: Total chars: 96

sub P {
my$b=$_[1]||$_[0];
$_[0]?map{my$c=$_;map[$c,@$_],P($_[0]-$c,$c)}grep{$_<=$b}(1..$_[0]):[]
}
[download]

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain

Comment on Re: (Golf as well): List of Partitions Select or Download Code

Replies are listed 'Best First'.

sub P{
$n=pop;@a=[0];map{$i=$_;push@{$a[$i+$_]},map[$i,@$_],@{$a[$_]}for
0..$n}1..$n;@{$a[$n]}
}
[download]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://78346]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (4)

As of 2024-04-23 06:14 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found