gistfile1.clj

(defn best
  [f [h & t]] 
  (reduce #(if (f %1 %2) %1 %2) h t))

(defn most 
  [f [h & t :as coll]]
  (if (seq coll)
    (reduce (fn [[wins wins-score] x] 
              (let [x-score (f x)]
                (if (> wins-score x-score) 
                  [wins wins-score]
                  [x x-score])))
            [h (f h)]
            t)
    [nil nil]))