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);
By rote learning.
Via Genetic memory.
It's provided by my firmware.
I just remember them.
Thirty days hath September
My computer gets it right, usually.
I just ask someone else.
Someone punches me on the first of the month.
Results (177 votes),