gistfile1.clj

(defn my-max [coll]
  (let [[first-value first-freq] (first coll)]
    (loop [max-value first-value
           max-freq  first-freq
           coll      (rest coll)]
      (if (empty? coll)
        max-value
        (let [[value freq] (first coll)]
          (if (> freq max-freq)
            (recur value     freq     (rest coll))
            (recur max-value max-freq (rest coll))))))))