Skip to content

Instantly share code, notes, and snippets.

@jneira

jneira/jneira-4clojure-solution53.clj

Forked from anonymous/jneira-4clojure-solution53.clj
Created April 24, 2011 16:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jneira/939650 to your computer and use it in GitHub Desktop.
Save jneira/939650 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
jneira-4clojure-solution53.clj
;; jneira's solution to http://4clojure.com/problem/53
(fn sub [c]
(let [gt (comp last sort)
res (gt
(reduce
(fn [[x y] n]
(if (> n (last y))
[x (conj y n)]
[(gt [x y])
(vector n)]))
[[] [(first c)]] (rest c)))]
(if (> (count res) 1) res [])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment