(let [a {:a :b}] (into (empty a) (map identity a)))

{:a :b}

(defn my-atom? [a] (not (coll? a)))

#'user/my-atom?

(let [a 5] #{a 5})

#{5}

(let [a (atom "hello")] [a @a])

[#object [clojure.lang.Atom 0x76ccafd3 {:status :ready, :val "hello"}] "hello"]

(let [{a :foo} {:foo :bar}] a)

:bar

((fn [a] (+ a 23)) 10)

33

(let [{a :a} [[:a :A]]] a)

nil

(if-let [[a :a] ["a" :a]] a)

:a

(with-local-vars [a 1] (println (var-get a)))

nil

"1\n"

(let [  2 a  ] a)

2

(let [a 1] (+ a 1))

2

(let [a 1 b a] b)

1

(macroexpand '(-> a #(a)))

(fn* a [] (a))

(defn m [& a] (prn a))

#'user/m

(defn bar [a b] (prn a))

#'user/bar

(->> a
     (for [a (range 10)]))

(0 1 2 3 4 5 6 7 8 9)

(defn foo [a b] (a b))

#'user/foo

(let [[a b] [1 2]] a)

1

(defn x ^long [^long a] a)

#'user/x

(macroexpand '(-> a #((((((a))))))))

(fn* a [] ((((((a)))))))

(defn bind [a k] (k a))

#'user/bind

(defn f [a] (a 3 4))

#'user/f

(let [{a :a} {:a 42}] a)

42

(let [{a 'a} {'a 'a}] a)

a

(defn foo [{:strs [a]}] (println a))

#'user/foo

(let [{a :a} {:a 1}] a)

1

((fn [{:keys [a]}] a) {:a 1})

1

(doseq [a (range 4)] (print a))

nil

"0123"

(do (declare a) (bound? (var a)))

false

(defn a ([] (a 3)) ([x] x))

#'user/a

(defn yoyo [a] (* a 3))

#'user/yoyo

(macroexpand '(let [[a] b] a))

(let [[a] b] a)

(defn a ([] (a 1)) ([x] x))

#'user/a

(for [a (range 1 4)] [a])

([1] [2] [3])

(defmacro a [...] ... (a) ...)

#'user/a

(let [[a b] nil] [a b])

[nil nil]

(-> [a (range 10)]
    (for a))

(0 1 2 3 4 5 6 7 8 9)

((fn [& {:as a}] (println a)))

nil

"nil\n"

(let [a 1] (defn f [] a))

#'user/f

(if-let [{a :a} 1]
  a
  "nope")

nil

((fn [[a b]] [b a]) "ha")

[\a \h]

(let [a 1 b a] b)

1

(for [a "hello™ n    o"] a)

(\h \e \l \l \o \™ \space \n \space \space \space \space \o)

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

[nil nil]

(let [{a :foo} [[:foo :bar]]] a)

nil

(let [a 10] ['f a 'a])

[f 10 a]

(let [[a & b] [nil]] a)

nil

(eval '(let [a 1] a))

1

(->> (inc a)
     (let [a 5]))

6

(defn f1
  [a]
  (-> a
      meta))

#'user/f1