Re: (Golf) Per Mutations

[Masem]

57!

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my @b = p(1,2,3,4);

print Dumper( @b );

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

---

Dr. Michael K. Neylon - [e-mail] || "You've left the lens cap of your mind on again, Pinky" - The Brain

[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,@_)}@_:[]
}

[tilly]

Didn't the rules say arbitrary list? Try this with the list (1,2,3,1) and you get incorrect output.

However here is another 57 char solution that does not suffer from this deficiency.

sub p{
@_?map{my$x=shift;@r=map[$x,@$_],&p;push@_,$x;@r}1..@_:[]
}