Re^2: integer partition golf

[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