return $dbh;
}
-# 10-9 is 0.60
-# 10-0 is 1.00
-sub find_score {
- my ($score1, $score2) = @_;
- if ($score1 == 10) {
- # yay, a win
- return 0.60 + 0.40 * (9.0-$score2)/9.0;
- }
- if ($score2 == 10) {
- # a loss
- return 0.40 - 0.40 * (9.0-$score1)/9.0;
- }
- die "Nobody won?";
-}
-
# c=8 => RD=50 moves to RD=350 over approx. five years
our $c = 8;