用clojure编写一个计算德州扑克6人桌初始手牌胜率的程序，无需考虑公共牌

下面是一个用Clojure编写的计算德州扑克6人桌初始手牌胜率的程序，它不考虑公共牌：

(defn all-hands []
  (let [ranks "AKQJT98765432"
        suits "shdc"]
    (for [r1 ranks
          r2 ranks
          :when (not= r1 r2)
          s1 suits
          s2 suits]
      (list (str r1 s1) (str r2 s2)))))

(defn score [cards]
  (let [values (sort (map #(if (= (first %) \1) 14 (int (first %))) cards))
        suits (frequencies (map #(second %) cards))
        flush? (some #(>= % 5) suits)
        straight? (let [consec (apply max (map #(apply - %) (partition-all 2 1 (conj values 15))))] (= consec 4))
        wheel? (= (sort values) [2 3 4 5 14])]
    (cond
      flush? (if straight? (if (= (apply min values) 10) 10 (+ 900 (last values))) (+ 600 (apply max values)))
      straight? (if wheel? 5 (+ 500 (last values)))
      :else (if (= (apply max (vals (frequencies values))) 4)
              (+ 700 (first (keep #(if (= 4 (last %)) (first %)) (frequencies values))))
              (if (= (apply max (vals (frequencies values))) 3)
                (if (= (count (filter #(= 2 (last %)) (frequencies values))) 1)
                  (+ 400 (first (keep #(if (= 3 (last %)) (first %)) (frequencies values))))
                  (+ 300 (first (keep #(if (= 3 (last %)) (first %)) (frequencies values))) (apply max (keep #(if (= 2 (last %)) (first %)) (frequencies values)))))
                (if (= (count (filter #(= 2 (last %)) (frequencies values))) 2)
                  (+ 200 (apply max (keep #(if (= 2 (last %)) (first %)) (frequencies values))) (apply min (keep #(if (= 2 (last %)) (first %)) (frequencies values))) (first (keep #(if (= 1 (last %)) (first %)) (frequencies values))))
                  (+ 100 (apply max values))))))))

(defn win-probability [my-hand]
  (let [opponent-hands (remove #{my-hand} (all-hands))]
    (loop [wins 0
           ties 0
           opponents opponent-hands]
      (if (empty? opponents)
        (/ (+ wins (* ties 0.5)) (count opponent-hands))
        (let [opponent-hand (first opponents)
              my-score (score my-hand)
              opponent-score (score opponent-hand)]
          (cond
            (> my-score opponent-score) (recur (inc wins) ties (rest opponents))
            (= my-score opponent-score) (recur wins (inc ties) (rest opponents))
            :else (recur wins ties (rest opponents))))))))

(defn calculate-win-probabilities []
  (let [hands (all-hands)]
    (for [hand hands]
      (let [win-prob (win-probability hand)]
        (println (str "Hand: " hand ", Win Probability: " win-prob))))))

(calculate-win-probabilities)

这个程序定义了三个函数：all-hands、score和win-probability。其中，all-hands函数生成了所有可能的手牌，score函数计算给定手牌的得分，win-probability函数计算给定手牌的胜率。最后，calculate-win-probabilities函数生成了所有手牌的胜率列表，并打印输出。

你可以在Clojure的REPL环境中加载或定义这个程序，并调用calculate-win-probabilities函数来计算所有初始手牌的胜率。注意，这个程序只考虑了初始手牌，没有考虑公共牌。