Help for this page
# DESCRIPTION: Generate permutations in lexicographic order
my ($i,$j) = @_; my $t = $a[$i];
($a[$i],$a[$j]) = ($a[$j],$t);
die "bleah... nothing to permutate\n" unless defined @ARGV;
use Algorithm::Permute qw(permute permute_ref);
print join(" ", @$_), "\n" for permute(\@ARGV);
Once (shame on you!)
Twice (shame on me!)
More often than I'd like to be
All the time
Just when answering stupid polls
Who you callin' a fool?
I refuse to vote in this ridiculous poll
Results (544 votes). Check out past polls.