printf MCCALC "%d\n", scalar keys %players;
for my $id (keys %players) {
- my $rating = $used_ratings->{$id} // 1500.0;
+ my $rating = $used_ratings->{$id} // 500.0;
printf MCCALC "%s %f\n", $id, $rating;
}
chomp;
my @x = split /\s+/;
my $id = $x[0];
- my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 1500.0), ($ratings_stddev{$id} // $parms{-3});
+ my $player = sprintf "%s (%.0f ± %.0f)", $players{$id}, ($ratings{$id} // 500.0), ($ratings_stddev{$id} // $parms{-3});
$prob{$player} = [ @x[1..$#x] ];
}
close MCCALC;