Help for this page

Select Code to Download


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