http://www.perlmonks.org?node_id=77842


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

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