(let [a {:a []} c [{:a 2} {:a 3}]] (map (partial merge-with conj a) c))

({:a [2]} {:a [3]})

(let [a "foo" b "bar"] (str "Hello " a ", how are you? -" b))

"Hello foo, how are you? -bar"

(binding [*print-dup* true]
  (letfn [(foo [^Long a] (* a 2))]
    (-> 'foo
        meta
        :arglists
        pr)))

nil

"nil"

(let [x 1 a (atom x)] (do (swap! a + 5) {:x x, :a @a}))

{:a 6, :x 1}

(let [[f & a] [* 5 3]] [(apply * '(5 3)) (apply f a)])

[15 15]

((fn [f & {:as options}] (apply f options)) (fn [{a :a}] (println a)) :a :b)

nil

"nil\n"

(let [[aa bb] (let [{:keys [a b]} {:a 1, :b 2}] [a b])] [aa bb])

[1 2]

((fn [{:keys [a b c], :or {c 10}}] [a b c]) {:a 1, :b 2})

[1 2 10]

(do (use 'clojure.template)
    (macroexpand-1 '(do-template [a b] (+ a b) 1 2 3 4)))

(do (+ 1 2) (+ 3 4))

(let [{a "ja", b "nein", :or {"nein" "doch"}} {:x 4, "ja" 8}] (println a b))

nil

"8 nil\n"

(let [[a b & xs] [1 2 3 4 5 6 7]] [a b xs])

[1 2 (3 4 5 6 7)]

(let [{:keys [a b]} {:a 1, :b [1 2], :c {:a :b}}]
  (println a)
  b)

[1 2]

"1\n"

(loop [b (int 0)] (let [c (loop [a 1] a)] (if false (recur (inc c)))))

nil

(let [{a :a, b :b, c :c} (seq [:c 1 :b 2])] [a b c])

[nil 2 1]

(for [b [dec dec dec dec] a [inc dec inc dec]] [(b 5) (a 5)])

([4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4]
 [4 6]
 [4 4])

(apply str
  (map first
    (take-while (fn [[a b]] (= a b)) (map list "spamtastic" "spamalot"))))

"spam"

((fn ([a b c & more] :first) ([a b c] :second)) :a :b :c :d)

:first

(defn a [y] (+ y 1))

#'user/a

(macroexpand '(letfn [(a [] 2)] 42))

(clojure.core/let [a (clojure.core/-new-var)]
  (clojure.core/alter-var-root a
                               (clojure.core/constantly (clojure.core/fn a []
                                                          2)))
  (clojure.core/let [a (clojure.core/var-get a)] 42))

(class (read-string "(a 2)"))

clojure.lang.PersistentList

(let [[a b c] (range)] b)

1

(print '(a b c d))

nil

"(a b c d)"

(let [[a & b] '()] 0)

0

(macroexpand-1 '(pl (?map a b)))

(pl (?map a b))

(re-matches #"(?x)a                  b" "ab")

"ab"

(macroexpand-1 '(dosync a b c))

(dosync a b c)

(repeat 500 "I'm a little teapot")

("I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'm a little teapot" "I'...

(take 10 '(a b c))

(a b c)

(set '(a b c d))

#{a b c d}

(macroexpand '(-> a (b) (c)))

(c (b a))

('a '{a 0, b 1})

0

(find '[a b c] 0)

[0 a]

(macroexpand-1 `(defratios (a) :b 3))

(user/defratios (user/a) :b 3)

(macroexpand '(when-let [a foo] bar))

(clojure.core/let [temp__29583__auto__ foo]
  (clojure.core/when temp__29583__auto__
    (clojure.core/let [a temp__29583__auto__] bar)))

(str "~clj! is a new bot")

"~clj! is a new bot"

(map int "I am a string")

(73 32 97 109 32 97 32 115 116 114 105 110 103)

(defn gimme-code [a] `(println ~a))

#'user/gimme-code

(namespace (first (keys '{a 2})))

nil

(do (def a 1) (meta #'a))

{:file nil, :name a, :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"]}

(if (rest '(a)) true false)

true

(class (into [] '(a b c)))

clojure.lang.PersistentVector

(let [a 1] `(inc ~a))

(clojure.core/inc 1)

(when-let [[a b :as form] []] form)

[]

(macroexpand '(-> 1 @(a)))

(clojure.core/deref 1 (a))

(defprotocol FooProto
  (foo-method [a b c]))

{:methods #{#object
             [clojure.lang.MultiFn 0x18382f6e "clojure.lang.MultiFn@18382f6e"]},
 :name user/FooProto,
 :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"],
 :sigs {:foo-method {:arglists ([a b c]), :doc nil, :name foo-method}}}

(contains? '[a b c] 2)

true

(if true "yes im a bot")

"yes im a bot"

(namespace (first (keys `{a 2})))

"user"

(do (ns test) (def a "OK"))

#'test/a

(println "~clj! is a new bot")

nil

"~clj! is a new bot\n"