File: Descr.weaktwo

package info (click to toggle)
dealer 0.20040530-3
  • links: PTS
  • area: main
  • in suites: lenny, squeeze
  • size: 820 kB
  • ctags: 739
  • sloc: ansic: 4,178; yacc: 578; perl: 396; makefile: 144
file content (21 lines) | stat: -rw-r--r-- 561 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# calculates some statistics of hands deemed to be weak two's
# I do not claim this definition of a weak two will satisfy everybody

weaktwospades = 
	shape(north, 6xxx - any 0xxx) and
	hcp(north) >= 5 and hcp(north) <= 11 and
	hcp(north, spades) >= hcp(north)/2

heartfit =
	hearts(north) + hearts(south) >= 8

condition weaktwospades

generate
	1000000
action
	frequency "points" (hcp(north), 5, 11) ,
	average "hearts" hearts(north) ,
	average "Ace of spades" hascard(north, AS) ,
	average "Jack of spades" hascard(north, JS) ,
	average "Heart fit" heartfit