26 lines
378 B
Plaintext
26 lines
378 B
Plaintext
(ns examples.hello-world)
|
|
|
|
|
|
(def hello-world
|
|
(fn (name)
|
|
(println "hello" name)))
|
|
|
|
(def a1
|
|
(fn (x y)
|
|
x))
|
|
|
|
(defmacro defn
|
|
(name args &body)
|
|
(list 'do
|
|
(list 'def name (cons 'fn (list args body)))))
|
|
|
|
(defn pp (x y)
|
|
(asd)
|
|
(println x))
|
|
|
|
(macroexpand '(pp 33 22))
|
|
(def main
|
|
(fn ()
|
|
(pp "sam" 2)
|
|
(hello-world "world")))
|