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
|
#
# This an input file to test dealer. It generates a million hands without
# any constraints, then prints the frequency of the various suit lengths
# and hcp holdings. The output can be piped into a perl-script to compare
# it against the theoretical holdings. It should give a quick check if
# the deals you are producing are sort-of random.
#
generate 1000000
action
frequency "HCP N" (hcp(north), 0, 37),
frequency "HCP E" (hcp(east), 0, 37),
frequency "HCP S" (hcp(south), 0, 37),
frequency "HCP W" (hcp(west), 0, 37),
frequency "Spades N" (spades(north), 0, 13),
frequency "Spades E" (spades(east), 0, 13),
frequency "Spades S" (spades(south), 0, 13),
frequency "Spades W" (spades(west), 0, 13),
frequency "Hearts N" (hearts(north), 0, 13),
frequency "Hearts E" (hearts(east), 0, 13),
frequency "Hearts S" (hearts(south), 0, 13),
frequency "Hearts W" (hearts(west), 0, 13),
frequency "Diamonds N" (diamonds(north), 0, 13),
frequency "Diamonds E" (diamonds(east), 0, 13),
frequency "Diamonds S" (diamonds(south), 0, 13),
frequency "Diamonds W" (diamonds(west), 0, 13),
frequency "Clubs N" (clubs(north), 0, 13),
frequency "Clubs E" (clubs(east), 0, 13),
frequency "Clubs S" (clubs(south), 0, 13),
frequency "Clubs W" (clubs(west), 0, 13),
|
