max-key-val

gistfile1.txt

(defn max-key-val
        [f & args]
        (reduce (fn [[max f-of-max] i]
                  (let [f-of-i (f i)]
                    (if (> f-of-i f-ofmax)
                      [i f-of-i]
                      [max f-of-max])))
                [(first args) (f (first args))]
                (rest args)))