gistfile1.clj

(defn max-key-val
  "Like max-key, but returns [x (f x)] for which (f x) is greatest"
  [f & args]
  (let [z (zipmap args (map f args))]
    (reduce (fn [max i]
                (if (> (second i) (second max))
                    i
                  max))
            (first z)
            (rest z))))