Re: (Golf) Per Mutations

[wardk]

Apologies to Abigail... http://www.foad.org/~abigail/Perl/Combinatorial/Permutations.pm

#!/bin/perl
use Combinatorial::Permutations;
my @t = p(1,2,3);
foreach $p (@t) { print @$p, "\n"; }

sub p { 
    return Permutations::permutate(@_); 
} 
------
xdev$ ./perm.pl
123
213
231
132
312
321