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


in reply to (Golf) Per Mutations

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}@_)}@_
}

[download]

Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain

In Section Meditations