mirror of
https://github.com/carp-lang/Carp.git
synced 2024-11-04 01:25:04 +03:00
10 lines
176 B
Plaintext
10 lines
176 B
Plaintext
|
(defdynamic x 1)
|
||
|
|
(defdynamic y '(1 2))
|
||
|
|
|
||
|
|
(defmacro gen-sum []
|
||
|
|
(quasiquote
|
||
|
|
(+ (unquote x)
|
||
|
|
(+ (unquote-splicing (map inc y))))))
|
||
|
|
|
||
|
|
(defn main [] (println* (gen-sum)))
|