Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(def weak-minor-5
[:and
[:length-range 9]
:minor
[:gcp-range 0 14]])
(def weak-major-4
[:and
[:length-range 8]
:major
[:gcp-range 0 14]])
(def weak-minor-4
[:and
[:length 8]
:minor
[:gcp-range 0 12]])
(def weak-3
[:and
[:length 7]
[:gcp-range 8 12]])
(def weak-2
[:and
[:length 6]
[:gcp-range 8 12]])
(def suit-1
[:gcp-range 13 20])
(def suit-1-openings
[:cond
[:length-range 5] :highest-suit-bid
:distribution-4441 :lowest-best-minor
:majors-44 [:suit hearts]
:else :best-longest-suit])
(def suit-openings
[:and
:longest-suit-bid
[:cond
weak-minor-5 [:level 5]
weak-major-4 [:level 4]
weak-minor-4 [:level 4]
weak-3 [:level 3]
weak-2 [:level 2]
suit-1 [:and [:level 1] suit-1-openings]]])
(def nt-2
[:and
[:gcp-range 21 22]
:nt-distribution])
(def nt-1
[:gcp-range 21])
(def nt-openings
[:cond
nt-2 [:level 2]
nt-1 [:level 1]])
(def openings
[:and
:first-bid
[:cond
:suit-bid suit-openings
:nt-bid nt-openings]])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.