problem 53 http://www.4clojure.com/problem/53

solution.clj

#(:longest
   (reduce 
     (fn [{:keys [longest cur] :as res} n] 
       (let [{:keys [cur] :as updated} (if (or (not (seq cur))
                                               (> n (last cur)))
                                         (update-in res [:cur] conj n)
                                         (assoc res :cur [n]))
             longest-cnt (count longest)
             cur-cnt (count cur)]
         (if (and (> cur-cnt 1)
                  (> cur-cnt longest-cnt))
           (assoc updated :longest cur)
           updated)))
     {:longest [] :cur []} %))