Skip to content

Instantly share code, notes, and snippets.

@cark

cark/gist:3709981

Created September 12, 2012 21:14
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 cark/3709981 to your computer and use it in GitHub Desktop.
Save cark/3709981 to your computer and use it in GitHub Desktop.
Download ZIP
one of two things
Raw
gistfile1.clj
user> (defmacro as-doubled-pair [v]
`(let [v# (mapv (partial * 2) ~v)]
[v# v#]))
#'user/as-doubled-pair
user> (macroexpand (as-doubled-pair [1 2 3]))
[[2 4 6] [2 4 6]]
user> (defmacro as-doubled-pair2 [v]
(let [v (mapv (partial * 2) v)]
`(do [~v ~v])))
#'user/as-doubled-pair2
user> (macroexpand (as-doubled-pair2 [1 2 3]))
[[2 4 6] [2 4 6]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment