guipdutra/gist:875481ed07370ce05517

Last active August 29, 2015 14:13

Star 0 You must be signed in to star a gist
Fork 0 You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/guipdutra/875481ed07370ce05517.js"></script>
Save guipdutra/875481ed07370ce05517 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

gistfile1.clj

	(defn next-item [array elem]
	(get (into-array array) (inc (.indexOf array elem))))





	(fact "next-item"
	(next-item (range 1 25) 12) => 13
	(next-item [:a :b :c] :b) => :c)

erickpintor commented Jan 19, 2015

(defn next-item 
  [arr elem]
  (let [[_ split] (split-with 
                    (partial not= elem) arr)]
    (second split)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment