bruce

bruce

(ns bruce.core)

(defn create-hand []
  (->> (for [suit [:clubs :diamonds :hearts :spade]
             rank [:ace :two :three :four :five
                   :six :seven :eight :nine :ten
                   :jack :queen :king]]
         {:suit suit :rank rank})
       shuffle
       (take 5)))

(defn of-a-kind? [num hand]
  (->> hand
       (map :rank)
       frequencies
       vals
       (some #(= num %))))