1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/usr/bin/perl
# This script reformats the output of Descr.test_dealer into a nice
# table, with the theoretical values next to the hcp and suit distributions
# for the 4 players
# This is not the best piece of Perl that I've ever written.
#
# Frequency of suit lengths and hcp help by players. From Frederic H. Frost,
# "Bridge Odds Complete".
#
@suitlen = (1.27, 8.01, 20.59, 28.63, 23.87, 12.47, 4.16, 0.88, 0.12, 0.01, 0,0,0);
@rawhcp = (0.36, 0.79, 1.35, 2.46, 3.85, 5.19, 6.55, 8.03, 8.89, 9.36, 9.41, 8.94, 8.03, 6.91, 5.69, 4.42, 3.31, 2.36, 1.61, 1.04, 0.64, 0.38, 0.21, 0.11, 0.06, 0.03, 0.01, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
$player_to_int{"N"} = 0;
$player_to_int{"E"} = 1;
$player_to_int{"S"} = 2;
$player_to_int{"W"} = 3;
$suit_to_int{"Spades"} = 0;
$suit_to_int{"Hearts"} = 1;
$suit_to_int{"Diamonds"} = 2;
$suit_to_int{"Clubs"} = 3;
$suit_to_int{"S"} = 0;
$suit_to_int{"H"} = 1;
$suit_to_int{"D"} = 2;
$suit_to_int{"C"} = 3;
$rank_to_int{"T"} = 10;
$rank_to_int{"J"} = 11;
$rank_to_int{"Q"} = 12;
$rank_to_int{"K"} = 13;
$rank_to_int{"A"} = 14;
while (<STDIN>) {
chop;
chop;
if ($_ =~ "HCP") {
($dummy, $dummy, $player) = split (/\s+/, $_);
$player = $player_to_int{$player};
for ($i=0; $i<38; $i++) {
$_ = <STDIN>;
($dummy, $dummy, $freq) = (split /\s+/, $_);
$hcp[$i][$player] = $freq;
}
} elsif ($_ =~ "Frequency Card") {
($dummy, $dumy, $player, $card) = (split /\s+/, $_);
$player = $player_to_int{$player};
$suit = $suit_to_int {substr($card, 0, 1)};
$rank = substr($card, 1, 1);
if (defined $rank_to_int{$rank}) {
$rank = $rank_to_int{$rank};
}
$_ = <STDIN>;
$_ = <STDIN>;
($dummy, $dummy, $count) = split (/\s+/, $_);
$hascard[$player][$suit][$rank] = $count;
} elsif ($_ =~ "Frequency") {
($dummy, $suit, $player) = split (/\s+/, $_);
$player = $player_to_int{$player};
$suit = $suit_to_int{$suit};
for ($i=0 ; $i<13; $i++) {
$_ = <STDIN>;
($dummy, $dummy, $freq) = split (/\s+/, $_);
$suit[$i][$player][$suit] = $freq;
}
} elsif ($_ =~ "Generated") {
($dummy, $constant, $dummy) = split (/\s+/, $_);
}
}
print "Generated $constant hands\n\n";
$constant /= 100;
print "HCP Distribution\n================\n";
print " # N E S W\n";
print " % diff % diff % diff % diff\n";
for ($i=0 ; $i<38 ; $i++) {
printf ("%2d ", $i);
for ($j=0 ; $j<4; $j++) {
printf ("%5.2f ", $hcp[$i][$j]/$constant);
printf ("%5.2f ", $hcp[$i][$j]/$constant - $rawhcp[$i]);
}
printf ("%5.2f", $rawhcp[$i]);
print "\n";
}
foreach $k ("Spades", "Hearts", "Diamonds", "Clubs") {
print "\n$k Distribution\n=====================\n";
print " # N E S W\n";
print " % diff % diff % diff % diff\n";
$k1 = $suit_to_int{$k};
for ($i=0 ; $i<14 ; $i++) {
printf ("%2d ", $i);
for ($j=0 ; $j<4; $j++) {
printf ("%5.2f ", $suit[$i][$j][$k1]/$constant);
printf ("%6.3f ", $suit[$i][$j][$k1]/$constant-$suitlen[$i]);
}
printf ("%5.2f", $suitlen[$i]);
print "\n";
}
}
print "\nIndividual Cards\n================\n";
print " Spades Hearts Diamonds Clubs\n";
print "# N E S W N E S W N E S W N E S W\n";
for ($rank = 2 ; $rank < 15 ; $rank++) {
printf ("%s ", substr("23456789TJQKA", $rank-2, 1));
for ($suit = 0 ; $suit < 4; $suit++) {
for ($player = 0 ; $player < 4 ; $player++) {
printf ("%5.2f ", $hascard [$player][$suit][$rank]/$constant-25.00);
}
}
print "\n";
}
|
