Help for this page

Select Code to Download


  1. or download this
    sub contested : lvalue { my $self = shift; $self->{_contested} }
    
  2. or download this
      # works in package main; but not package Board;
      foreach my $queen1 (@queens) {
    ...
          $queen1->contested++ if $linear->($queen1->location, $queen2->lo
    +cation);
        }
      }