File: Descr.weaktwo

package info (click to toggle)
dealer 20161012-4
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,148 kB
  • sloc: ansic: 2,436; yacc: 630; perl: 400; makefile: 139; sh: 5
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