(re-seq #"\\w+" "This string contains some tokens. Yipee!")

nil

(let [m 4 n ^{:abc String} m])

nil

(instance? (class (make-array Object 0)) (make-array String 0))

true

(-> (with-meta [] {String "foo"})
    meta
    keys
    first
    class)

java.lang.Class

(count (clojure.string/split "my string of words" #"[:whitespace:]"))

5

(-> ^{String "foo"} 'hi
    meta
    keys
    first
    class)

nil

(require '[clojure [string :as s] [set :as t]])

nil

(map seq (repeat 3 (into-array String ["a" "b" "c"])))

(("a" "b" "c") ("a" "b" "c") ("a" "b" "c"))

(map #(into [] %) (into [] (make-array String 4 10)))

([nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil])

(re-seq #"(?:cad)?abra" "this string has abracadabra in it")

("abra" "cadabra")

(type (resolve (:type (read-string "{:content \"Hello!\", :type String}"))))

java.lang.Class

(re-seq #"(cad)?abra" "this string has abracadabra in it")

(["abra" nil] ["cadabra" "cad"])

(seq (into-array String (map str ["does" "this" :also 1 2 "work?"])))

("does" "this" ":also" "1" "2" "work?")

(apply str ["String one " "string two " "and string three"])

"String one string two and string three"

(defn foo [a a a a] (list a a))

#'user/foo

(vec (map #(into [] %) (into [] (make-array String 4 10))))

[[nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil]
 [nil nil nil nil nil nil nil nil nil nil]]

(macroexpand-1 '(doto string (.substring 0 (+ 1 (.indexOf charBetween)))))

(clojure.core/let [G__2176796 string]
  (.substring G__2176796 0 (+ 1 (.indexOf charBetween)))
  G__2176796)

(let [a 1 a (inc a) a (* a a)] a)

4

(do (require '[clojure.string :as string]) (string/join (list \c \h \a \r \s)))

"chars"

(let [a 0 a (inc a) a (* a a)] a)

1

(let [a 2 a (+ a a)] a)

4

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

3

(def a (fn ([a] a) ([a b] [a b])))

#'user/a

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

(1 2 1 2)

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

1

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

2

(re-find #"some string" "will find some string because no smart quotes")

"some string"

(let [k [0 4] string "foobar"] (eval `(.substring ~string ~@k)))

"foob"

(for [a [1 2 3] generated [a a a]] a)

(1 1 1 2 2 2 3 3 3)

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

[[1] [[1]]]

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

nil

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

(let [a 1 a (+ a 2) a (* a 5)] a)

15

(let [a 5 a (* 2 a) a (* 2 a)] a)

20

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

3

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

1

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

20

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

[3]

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

20

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

{:b 1}

(defrecord A [a])

#'user/A

(def a [a])

#'user/a

(def a a)

#'user/a

(defmacro foo ([a] a) ([a b] [a b]))

#'user/foo

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

([1 1 1] [2 2 2] [3 3 3] [4 4 4])

(let [a 42] (let [a (inc a)] a))

43

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

true

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

1

"1\n"

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

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

(defn !? [a] (+ a a))

#'user/!?

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

2