Re: Re: (Golf) Per Mutations

[MeowChow]

Awesome :) We can even bring that down to 49:

sub p
{
  @_?map{my$a=$_;map[$a,@$_],p(grep$_!=$a,@_)}@_:[]
}

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

[dws]

Make that 48:

sub p
{
  @_?map{my$a=$_;map[$a,@$_],p(grep$_^$a,@_)}@_:[]
}