File: Descr.yarb

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 (15 lines) | stat: -rw-r--r-- 274 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#
# Generate some truly lousy hands.
#
# Redefine the pointcount table and assign 1 point to the 5 honnors
#
#          A K Q J T 9 8 7 6 5 4 3 2
pointcount 1 1 1 1 1 0 0 0 0 0 0 0 0

produce 10

condition hcp(north)==0

action
	print (north),
	frequency (hcp(north), 0, 5)