Skip to content

Instantly share code, notes, and snippets.

@zahardzhan

zahardzhan/destructuring.clj

Created March 6, 2010 03:44
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 zahardzhan/323481 to your computer and use it in GitHub Desktop.
Save zahardzhan/323481 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
destructuring.clj
(defn (power :is number? :or (throw 'Bad-input))
[(x :is number?)
(y :is [pos? integer?])
(n :is [pos? integer?] :is [neg? float?] :is [zero? double?] :or false)]
(/ x 0))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment