Skip to content

Instantly share code, notes, and snippets.

@amalloy
Created October 17, 2010 08:26
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 amalloy/630662 to your computer and use it in GitHub Desktop.
Save amalloy/630662 to your computer and use it in GitHub Desktop.
user> (defn ask-mathematica [var-name]
`(* ~var-name 10))
#'user/ask-mathematica
user> (defmacro solve-pde [var1 var2]
`(+ ~var2 ~(ask-mathematica var1)))
#'user/solve-pde
user> (let [x 1 y 5] (solve-pde x y))
15
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment