in reply to Re: (Golf) Per Mutations
in thread (Golf) Per Mutations

Awesome :) We can even bring that down to 49: 
sub p
{
  @_?map{my$a=$_;map[$a,@$_],p(grep$_!=$a,@_)}@_:[]
}

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Replies are listed 'Best First'.
Re: Re: Re: (Golf) Per Mutations
by dws (Chancellor) on May 04, 2001 at 03:59 UTC
    Make that 48: 
    sub p
{
  @_?map{my$a=$_;map[$a,@$_],p(grep$_^$a,@_)}@_:[]
}

    [download]
[reply]
[d/l]

In Section Meditations