Create a gist now

Instantly share code, notes, and snippets.

(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