integer partition golf

[jimt]

Yes, yes, this has been done before (hasn't everything?), but I think this still comes out to be the most compact method to actually calculate and display partitions of integers. The previous thread had people just trying to calculate them in memory. This one takes a single integer on the command line and goes to town.

sub p{my($n,@e,$o)=@_;print if!$_{$_=join$",sort@_,$/}++;p(++$o,--$n,@
+e)while$n-1}p(shift)

90 characters! woo hoo! I only beat tilly's solution by 1 character, once I appended print@$_,$/for P(shift) to it. A more compact printer added on to it would render that one the winner.

Update: Ya know, one of these days, my golf game'll be good enough that I'll post and someone won't immediately respond and say "I can shave off another character!" heh. Props to liverpole and blazar. I incorporated their suggestions, plus another one I thought of to drop down to 83.

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,$n,@e)wh
+ile--$n}p pop

Update 2: And 80

sub p{my(@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,@e)while--$
+e[0]}p pop

<Reveal this spoiler or all in this thread>

[liverpole]

<homer simpson voice>Mmmmmmm ... gollllf ....</homer simpson voice>

Can I play too?

#  1.  Convert "shift" to "pop" to save 2 chars
#  2.  Convert leading "if" to trailing "&&" to
#      squeeze out one space char
#  3.  Convert !(conditional)&&(action) to
#      (conditional)||(action) for one char
#
#  Savings = 4 chars (86 total chars)

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)
+while$n-1}p(pop)

I've a feeling it can go smaller, though :)

Update  Oh, and ...

#  4.  Remove parens from subroutine for 1 char
#
#  Total:  85 chars

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)
+while$n-1}p pop

I still think it can get smaller ...

[liverpole]

Hi jimt,

        Ya know, one of these days, my golf game'll be good enough that I'll post and someone won't immediately respond and say "I can shave off another character!"

No, my hat's off to you ... and you gotta give yourself a LOT of credit.

First, you came up with the original challenge, which was fun.  And even though blazar and I stripped off 5 characters, you stripped off 5 more!

As I'm sure you're aware, that's a much bigger feat, since getting just a single character here and there gets harder and harder.

I don't think it can go much lower.  I can only see a 1-character savings at this point, for 79:

sub p{my(@e,$o)=@_;$_{$_=join$",sort@_,$/}||=print;p(++$o,@e)while--$e
+[0]}p pop

[shmem]

I don't think it can go much lower. I can only see a 1-character savings at this point, for 79:

sub p{my(@e,$o)=@_;$_{$_=join$",sort@_,$/}||=print;p(++$o,@e)while--$e
+[0]}p pop

I second that.

I don't think it can go much lower. I can only see a 1-character saving at this point, for 78:

sub p{my(@e,$o)=@_;$_{$_="@{[sort@_]}\n"}||=print;p(++$o,@e)while--$e[
+0]}p pop

:-)

That fixes the leading $/, too.

--shmem

[cephas]

Chopped on more char.....
sub p{my(@e,$o)=@_;${$_="@{[sort@_]}\n"}||=print;p(++$o,@e)while--$e[0]}p pop

[blazar]

You can still save 5 chars without changing your logic, but adopting a pair of common golf tricks:

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)while$n-1}p pop