balkian/clojure-koans
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Focus the problem and clean up naming in macros

Browse Source 
Fixes #134
This commit is contained in:
Colin Jones 2018-04-09 10:12:47 -05:00
parent faa02b5fae
commit 809af93e35
No known key found for this signature in database
GPG Key ID: BB1DBD3616F1DDB9
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
resources/koans.clj
View File

@ -264,8 +264,6 @@
(drop 2 form)
"Hello, Macros!"
10
'(+ 9 1)
'(* 10 2)
'(+ 10 (2 * 3))]}]
'(+ 9 1)]}]
]

18
src/koans/24_macros.clj
View File

@ -7,23 +7,23 @@
(defmacro infix [form]
(list (second form) (first form) (nth form 2)))
(defmacro infix-better [form]
(defmacro infix-concise [form]
`(~(second form) ; Note the syntax-quote (`) and unquote (~) characters!
__
__ ))
__))
(defmacro r-infix [form]
(defmacro recursive-infix [form]
(cond (not (seq? form))
__
(= 1 (count form))
`(r-infix ~(first form))
`(recursive-infix ~(first form))
:else
(let [operator (second form)
first-arg (first form)
others __]
`(~operator
(r-infix ~first-arg)
(r-infix ~others)))))
(recursive-infix ~first-arg)
(recursive-infix ~others)))))
(meditations
"Macros are like functions created at compile time"
@ -36,10 +36,10 @@
(= __ (macroexpand '(infix (9 + 1))))
"You can do better than that - hand crafting FTW!"
(= __ (macroexpand '(infix-better (10 * 2))))
(= '(* 10 2) (macroexpand '(infix-concise (10 * 2))))
"Things don't always work as you would like them to... "
(= __ (macroexpand '(infix-better ( 10 + (2 * 3)))))
(= '(+ 10 (2 * 3)) (macroexpand '(infix-concise (10 + (2 * 3)))))
"Really, you don't understand recursion until you understand recursion"
(= 36 (r-infix (10 + (2 * 3) + (4 * 5)))))
(= 36 (recursive-infix (10 + (2 * 3) + (4 * 5)))))