Help for this page

Select Code to Download


  1. or download this
    +  0 1 2 3 4 5 6

...
4  4 5 6 0 1 2 3
5  5 6 0 1 2 3 4
6  6 0 1 2 3 4 5
  2. or download this
    +  0  1  2  3  4  5  6

...
5  5  6  0  1  2 *3* 4  3
6  6  0  1  2  3  4 *5* 5
7  0  2  4  6  1  3  5
  3. or download this
    P  1 2 3 4 5 6 7 8

...
6  5 6 7 1 2   4 3
7  6 7 1 2 3 4   5
8  7 2 4 6 1 3 5
  4. or download this
    sub plays_in_round {
    my ($p1, $p2, $n) = @_;
...
    $r %= $n - 1;
    $r || ($n - 1);
}