amalloy-4clojure-solution53.clj

;; amalloy's solution to http://4clojure.com/problem/53

(let [less (partial apply <)]
   (fn [coll]
     (if-let [pairs
              (seq (->> coll
                        (partition 2 1)
                        (partition-by less)
                        (filter (comp less first))))]
       (apply cons
              ((juxt ffirst
                     (partial map second))
               (apply max-key count (reverse pairs))))
       [])))