solutions

src/p_p_p_pokerface.clj

@@ -1,34 +1,62 @@
 (ns p-p-p-pokerface)
 
 (defn rank [card]
- nil)
+ (let [face-card-values {\A 14 \K 13 \Q 12 \J 11 \T 10}
+ card-rank-char (first card)
+ card-rank-is-face-card? (Character/isDigit card-rank-char)]
+ (if card-rank-is-face-card?
+ (Integer/valueOf (str card-rank-char))
+ (face-card-values card-rank-char ))))
 
 (defn suit [card]
- nil)
+ (str (second card)))
 
 (defn pair? [hand]
- nil)
+ (let [pair-amount 2
+ hand-ranks (map rank hand)
+ hand-rank-freq (-> hand-ranks frequencies vals)]
+ (.contains hand-rank-freq pair-amount)))
 
 (defn three-of-a-kind? [hand]
- nil)
+ (let [three-of-a-kind-amount 3
+ hand-ranks (map rank hand)
+ hand-rank-freq (-> hand-ranks frequencies vals)]
+ (.contains hand-rank-freq three-of-a-kind-amount)))
 
 (defn four-of-a-kind? [hand]
- nil)
+ (let [four-of-a-kind-amount 4
+ hand-ranks (map rank hand)
+ hand-rank-freq (-> hand-ranks frequencies vals)]
+ (.contains hand-rank-freq four-of-a-kind-amount)))
 
 (defn flush? [hand]
- nil)
+ (-> (map suit hand) frequencies vals (.contains 5)))
 
 (defn full-house? [hand]
- nil)
+ (and (pair? hand) (three-of-a-kind? hand)))
 
 (defn two-pairs? [hand]
- nil)
+ (or (> (count (filter #(= 2 %) (vals (frequencies (map rank hand))))) 1)
+ (.contains (vals (frequencies (map rank hand))) 4)))
 
 (defn straight? [hand]
- nil)
+ (let [hand-ranks-sorted (sort (map rank hand))
+ start-rank (first hand-ranks-sorted)
+ hand-ranks-sorted-low-ace (sort (replace {14 1} hand-ranks-sorted))]
+ (or (= hand-ranks-sorted (range start-rank (+ start-rank 5)))
+ (= hand-ranks-sorted-low-ace (range 1 6)))))
 
 (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))