This commit is contained in:
Eelco Dolstra
2009-04-25 11:27:46 +00:00
parent 3c47a11bd9
commit 000fffeb11
2 changed files with 1 additions and 2 deletions

View File

@ -366,7 +366,6 @@ sub inputsToArgs {
sub permute {
my @list = @_;
print scalar @list, "\n";
for (my $n = scalar @list - 1; $n > 0; $n--) {
my $k = int(rand($n + 1)); # 0 <= $k <= $n
@list[$n, $k] = @list[$k, $n];