note Masem Here's one that is 65 characters, returns as array of arrays, but has duplicates (though the orders are unique). <CODE> sub P { $_[0]?map{my$c=$_;map[$c,@$_],P($_[0]-$c)}(1..$_[0]):[] } </CODE> <B>Update</B>: Same thing, but avoids repetitions: Total chars: 96 <CODE> sub P { my$b=$_[1]||$_[0]; $_[0]?map{my$c=$_;map[$c,@$_],P($_[0]-$c,$c)}grep{$_<=$b}(1..$_[0]):[] } </CODE> <HR> <I> Dr. Michael K. Neylon - <a href="mailto:mneylon-pm@masemware.com">mneylon-pm@masemware.com</a> || "You've left the lens cap of your mind on again, Pinky" - The Brain </I> 78334 78334