Select Code to Download

sub ScoreHand { # returns the score of the passed in @hand or ShortHan
+d
  my @hand = @_; return(7462) unless(@hand == 1 || @hand == 5); my $sh
+rt;
...
  if(  $slow      ) { return(SlowScoreHand($shrt)); }
  else              { return(        $zdnh{$shrt}); }
}

sub ScoreHand { # returns the score of the passed in @hand or ShortHan
+d
  return 7462 unless @_ == 1 || @_ == 5;
...
    : $zdnh{ $shrt };
}