nick-orton/pop-if.clj

Created January 30, 2011 02:50

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

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

Download ZIP

remove the top element if predicate matches

Raw

	(defn pop-if
	[predicate stack]
	(if (predicate (first stack))
	(rest stack)
	stack))

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