Help for this page

Select Code to Download

Select or download this

sub derangement {
  my $list = shift;
...
    @swapped[$i,$j] = (1,1);
  }
}