horrible code mrk2 needs formatting, checks for a straight, inc low ace case

gistfile1.txt

(defn straight? [hand]
  (let [sorted-hand 
        (fn[hand] (sort (keys (frequencies (map rank hand)))))
       
        range-helper 
        (fn [hand] (= hand (range (apply min hand) (inc (apply max hand)))))
        
        low-ace 
        (fn [hand] (range-helper (sort (replace {14 1} (sorted-hand hand)))))]
  (and 
   (= (count (sorted-hand hand)) 5)
   (or 
    (range-helper (sorted-hand hand))
    (low-ace hand )))))