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);
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (478 votes). Check out past polls.