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


in reply to (Golf) Per Mutations

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