(let [a Double/NaN] (= a a))

true

(let [a 10] (+ a a))

20

(let [a (Object.)] (identical? a a))

true

(defn foo [a] + a a)

#'user/foo

(let [a 4 a 5] a)

5

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

#'user/foo

(mapcat (fn [a] [a a a]) [1 2 3])

(1 1 1 2 2 2 3 3 3)

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

[1 2]

(let [a :foo]
  (prn a)
  (let [a :bar] (prn a))
  (prn a))

nil

":foo\n:bar\n:foo\n"

(let [a (transient {})]
  (assoc! a :a a)
  (persistent! a))

{:a #object
     [clojure.lang.PersistentArrayMap$TransientArrayMap 0x1431d537
      "clojure.lang.PersistentArrayMap$TransientArrayMap@1431d537"]}

(let [a 1 _ (prn a) a 2 _ (prn a)] a)

2

"1\n2\n"

(let [a (Double/NaN)] (= a a))

true

(for [a (list nil)] [a a])

([nil nil])

(let [[a] [Double/NaN]] (= a a))

true

(let [a 1 a 2] a)

2

(let [a #()] (= a a))

true

(let [a #"."] (= a a))

true

((juxt (fn [a] a) (fn [& a] a)) :a)

[:a (:a)]

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

{:b 1}

(loop [a 10] (if (pos? a) (recur (dec a)) a))

0

(let [a (atom nil)]
  (reset! a a)
  (deref a)
  nil)

nil

(let [a 0 b (fn [] a) a 1] [a (b)])

[1 0]

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

#'user/f

(let [a :foo]
  (prn a)
  (let [a :bar] (prn a)))

nil

":foo\n:bar\n"

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

#'user/foo

(for [a (rest (range 5)) b [a a a]] b)

(1 1 1 2 2 2 3 3 3 4 4 4)

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

2

((fn [[a & rest]] [a a]) (range))

[0 0]

(let [a 0] (let [a 1] a))

1

(let [a (atom 1)] (= a a))

true

(let [a 1] (do (println a) a))

1

"1\n"

(let [a (Double/valueOf Double/NaN)] (identical? a a))

true

(let [{a :a, :or {a 5}} {}] a)

5

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

{}

(defn dump [a] a)

#'user/dump

(clojure.core/let [a 1] a)

1

(for [a nil] a)

()

((fn [a] a) 1)

1

(let* [a 1] a)

1

(for [a [1]] a)

(1)

(let [a 2] a)

2

(defn id [a] a)

#'user/id

(let* [a 5] a)

5

(defn nice [a] a)

#'user/nice

((fn [[a]] a) "hello")

\h

(loop [[a] [1]] a)

1

(defn dumb [a] (a))

#'user/dumb

((fn [[a]] a) "abc")

\a

(meta (fn [a] a))

nil

(defprotocol A
  (a [_]))

{:methods #{#object
             [clojure.lang.MultiFn 0x23b8e832 "clojure.lang.MultiFn@23b8e832"]},
 :name user/A,
 :ns #object [sci.impl.vars.SciNamespace 0x37a47b18 "user"],
 :sigs {:a {:arglists ([_]), :doc nil, :name a}}}