Skip to content

Instantly share code, notes, and snippets.

@kindlychung

kindlychung/ret.clj Secret

Created May 8, 2015 15:35
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 kindlychung/e59a3a607fcf4ac5a71e to your computer and use it in GitHub Desktop.
Save kindlychung/e59a3a607fcf4ac5a71e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ret.clj
(clojure.core/and
(clojure.core/=
(clojure.core/count [1 2])
(clojure.core/count '[0 5]))
(clojure.core/every?
clojure.core/identity
(clojure.core/map cina.ref-types/match-item? '[0 5] [1 2])))
Raw
test.clj
(defn create-test-expression [input match-expression]
`(and (= (count ~input) ~(count match-expression))
(every? identity (map match-item? '~match-expression ~input))))
(pprint (let [y 5]
(create-test-expression [1 2] [0 y])))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment