Select Code to Download

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

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

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

sub p{
...
}
p(shift)

my($n,@e,$o) = @_;
...
my @e = @_;
my $o;

print if ! $_{$_ = join$",sort@_,$/}++;

p(5)
...
        calls p(1,1,1,1,1)
          outputs 1,1,1,1,1