from ke

src/p_p_p_pokerface.clj

@@ -1,34 +1,74 @@
 (ns p-p-p-pokerface)
 
 (defn rank [card]
- nil)
+ (let [c (first card)]
+ (if (Character/isDigit c)
+ (Integer/valueOf (str c))
+ (get {\T 10, \J 11, \Q 12, \K 13, \A 14} c))))
 
 (defn suit [card]
- nil)
+ (str (second card)))
+
 
 (defn pair? [hand]
- nil)
+(->> (map rank hand)
+frequencies
+vals
+(some #(= % 2))
+boolean))
 
 (defn three-of-a-kind? [hand]
- nil)
+ (->> (map rank hand)
+ frequencies
+ vals
+ (some #(= % 3))
+ boolean))
+
 
 (defn four-of-a-kind? [hand]
- nil)
+ (->> (map rank hand)
+ frequencies
+ vals
+ (some #(= % 4))
+ boolean))
+
 
 (defn flush? [hand]
- nil)
+ (= 1
+ (->> (map suit hand)
+ set
+ count)))
 
 (defn full-house? [hand]
- nil)
+ (and (pair? hand) (three-of-a-kind? hand)))
 
 (defn two-pairs? [hand]
- nil)
+ (->> (map rank hand)
+ frequencies
+ vals
+ (filter #(= % 2))
+ count
+ (#(= % 2))))
 
 (defn straight? [hand]
- nil)
+ (let [sorted-ranks (sort (map rank hand))
+ min-rank (first sorted-ranks)]
+ (or (= sorted-ranks
+ (range min-rank (+ min-rank 5)))
+ (= sorted-ranks
+ [2 3 4 5 14]))))
 
 (defn straight-flush? [hand]
- nil)
+ (and (straight? hand)
+ (flush? hand)))
 
 (defn value [hand]
- nil)
+ (cond (straight-flush? hand) 8
+ (four-of-a-kind? hand) 7
+ (full-house? hand) 6
+ (flush? hand) 5
+ (straight? hand) 4
+ (three-of-a-kind? hand) 3
+ (two-pairs? hand) 2
+ (pair? hand) 1
+ :else 0))