funky clojure code, i am bad at naming at formatting

gistfile1.txt

(defn value [hand]
  (let [checkers #{[high-card? 0]  [pair? 1]
                 [two-pairs? 2]  [three-of-a-kind? 3]
                 [straight? 4]   [flush? 5]
                 [full-house? 6] [four-of-a-kind? 7]
                 [straight-flush? 8]}
        ita (fn [coll] (if ((first coll) hand) (second coll)))]
   (apply max (filter (complement nil?) (map ita checkers)))))