(let [+ (fn [a b] (if (odd? a) (+ a b) (- a b)))] [(+ 1 2) (+ 2 2)])

[3 0]

(def a (range))

#'user/a

(def a 23)

#'user/a

(def a 5)

#'user/a

(quote (a b))

(a b)

(def ^:dynamic a)

#'user/a

(def a 6)

#'user/a

(def a 0)

#'user/a

(meta '[a])

nil

(defrecord Bar [a])

#'user/Bar

(def a "foo")

#'user/a

(rest '(a))

()

(def a 2)

#'user/a

(defrecord FooBar [a])

#'user/FooBar

(defrecord A [b])

#'user/A

(let [a 'foo])

nil

(defn a [] "")

#'user/a

(def a 20)

#'user/a

(def a (transient {}))

#'user/a

(def a 3)

#'user/a

(defrecord a (Foo.))

#'user/a

(quote {a 0})

{a 0}

(meta '^:foo a)

{:foo true}

(quote (quasiquote a))

(quasiquote a)

(def a (atom {}))

#'user/a

(let [a 1])

nil

(reduce (fn [a b] (println a b) (+ a b)) [1 2 3 4])

10

"1 2\n3 3\n6 4\n"

(loop [a 5 b 2] (if (zero? b) a (recur (dec a) (dec b))))

3

(let [[a b] [2 2]] (if (= 1 a) "a is 1" [a b]))

[2 2]

(let [a (hash-map Double/NaN 1)]
  (identical? (double (key (first a))) (double (key (first a)))))

false

(def yolo (take 2 (iterate (fn [a] (prn (str "PR" a)) (inc a)) 1)))

#'user/yolo

(for [a [1 2 3 1] :while (< a 3) b [:foo]] [b a])

([:foo 1] [:foo 2])

(filter (set '(a b c)) '(a b d c e b a))

(a b c b a)

(let [a '(1 2 3) b (conj a 2)] (identical? a (rest b)))

true

(for [a (range 2) b (range (inc a)) c (range b)] [a b c])

([1 1 0])

(for [a (range 4) b (range 4) :when (not= a b)] [a b])

([0 1] [0 2] [0 3] [1 0] [1 2] [1 3] [2 0] [2 1] [2 3] [3 0] [3 1] [3 2])

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

[[1 2] [1 2]]

(macroexpand-1 '(fn [[a]] {:pre [(+ 1 2)]} a))

(fn [[a]] {:pre [(+ 1 2)]} a)

(let [[a b c] (clojure.string/split "a,b,c" #",")] [a b])

["a" "b"]

(for [a (range 3) b [:a :c]] [a b])

([0 :a] [0 :c] [1 :a] [1 :c] [2 :a] [2 :c])

(defn twice? [a b] (= b (* 2 a)))

#'user/twice?

(macroexpand-1 '(doseq [a [1 2 3]] (println a)))

(loop [seq_58418 (clojure.core/seq [1 2 3]) chunk_58419 nil count_58420 0 i_58421 0] (if (clojure.core/< i_58421 count_58420) (clojure.core/let [a (clojure.core/nth chunk_58419 i_58421)] (do (println a)) (recur seq_58418 chunk_58419 count_58420 (clojure.core/unchecked-inc i_58421))) (clojure.core/let [seq_58418 (clojure.core/seq seq_58418)] (when seq_58418 (if (clojure.core/chunked-seq? seq_58418)...

(let [a (atom {})] (:name (swap! a assoc :name "test")))

"test"

(doseq [[a b] '("foo" "bar")] (println a b))

nil

"f o\nb a\n"

(for [a (take 4 (iterate inc 0))] (print a))

(nil nil nil nil)

"0123"

(defn foo [{a :a, b :b}] (+ a b))

#'user/foo

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

3

(defn flip [f] (fn [a b] (f b a)))

#'user/flip

(defn subset? [a b] (= (clojure.set/union a b) b))

#'user/subset?

((->> (+ a b)
      (fn [a b]))
  4
  5)

9