Skip to content

Instantly share code, notes, and snippets.

@djui

djui/4clojure - 53

Last active December 15, 2015 04:50
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save djui/5204511 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save djui/5204511 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
4clojure - 53
#(second (reduce (fn [[t r] x]
(if (= (last t) (dec x))
[(conj t x) r]
(if (> (count t) (max 1 (count r)))
[[x] t]
[[x] r])))
[[] []] (conj % -1)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment