schachcafe.clj

(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]])