Data commit

Task/Poker-hand-analyser/Clojure/poker-hand-analyser.clj

@@ -0,0 +1,80 @@
+(defn rank [card]
+  (let [[fst _] card]
+    (if (Character/isDigit fst)
+      (Integer/valueOf (str fst))
+      ({\T 10, \J 11, \Q 12, \K 13, \A 14} fst))))
+
+(defn suit [card]
+  (let [[_ snd] card]
+    (str snd)))
+
+(defn n-of-a-kind [hand n]
+  (not (empty? (filter #(= true %) (map #(>= % n) (vals (frequencies (map rank hand))))))))
+
+(defn ranks-with-ace [hand]
+  (let [ranks (sort (map rank hand))]
+    (if (some #(= 14 %) ranks) (cons 1 ranks) ranks)))
+
+(defn pair? [hand]
+  (n-of-a-kind hand 2))
+
+(defn three-of-a-kind? [hand]
+  (n-of-a-kind hand 3))
+
+(defn four-of-a-kind? [hand]
+  (n-of-a-kind hand 4))
+
+(defn flush? [hand]
+  (not (empty? (filter #(= true %) (map #(>= % 5) (vals (frequencies (map suit hand))))))))
+
+(defn full-house? [hand]
+  (true? (and
+    (some #(= 2 %) (vals (frequencies (map rank hand))))
+    (some #(= 3 %) (vals (frequencies (map rank hand)))))))
+
+(defn two-pairs? [hand]
+  (or
+    (full-house? hand)
+    (four-of-a-kind? hand)
+    (= 2 (count (filter #(= true %) (map #(>= % 2) (vals (frequencies (map rank hand)))))))))
+
+(defn straight? [hand]
+  (let [hand-a (ranks-with-ace hand)
+        fst (first hand-a)
+        snd (second hand-a)]
+    (or
+      (= (take 5 hand-a) (range fst (+ fst 5)))
+      (= (drop 1 hand-a) (range snd (+ snd 5))))))
+
+(defn straight-flush? [hand]
+  (and
+    (straight? hand)
+    (flush? hand)))
+
+(defn invalid? [hand]
+  (not= 5 (count (set hand))))
+
+(defn check-hand [hand]
+  (cond
+    (invalid? hand) "invalid"
+    (straight-flush? hand) "straight-flush"
+    (four-of-a-kind? hand) "four-of-a-kind"
+    (full-house? hand) "full-house"
+    (flush? hand) "flush"
+    (straight? hand) "straight"
+    (three-of-a-kind? hand) "three-of-a-kind"
+    (two-pairs? hand) "two-pair"
+    (pair? hand) "one-pair"
+    :else "high-card"))
+
+; Test examples
+(def hands [["2H" "2D" "2S" "KS" "QD"]
+            ["2H" "5H" "7D" "8S" "9D"]
+            ["AH" "2D" "3S" "4S" "5S"]
+            ["2H" "3H" "2D" "3S" "3D"]
+            ["2H" "7H" "2D" "3S" "3D"]
+            ["2H" "7H" "7D" "7S" "7C"]
+            ["TH" "JH" "QH" "KH" "AH"]
+            ["4H" "4C" "KC" "5D" "TC"]
+            ["QC" "TC" "7C" "6C" "4C"]])
+(run! println (map #(str % " : " (check-hand %)) hands))