(let [plus-two (partial + 2)] (plus-two 6))
8
(let [a 0 #_#_a 42] a)
0
(let [a 10 a 9] {a 1, a 2})
{9 2, 10 1}
(let [do 10 if 40] (do if))
40
(let [{:keys [a], :or {a "bar"}} {}] a)
"bar"
(let [r (range 5)] (zipmap r r))
{0 0, 1 1, 2 2, 3 3, 4 4}
(let [a 1 a 2] (print a))
nil
"2"
(let [[x & xs] "hello"] [x xs])
[\h (\e \l \l \o)]
(let [a 1 b 2 c 3])
nil
(let [bar nil] (or (:foo bar) :foo))
:foo
(let [it 'it] `(+ ~it 4))
(clojure.core/+ it 4)
(let [a 1 b 2] {a b})
{1 2}
(let [a "inc"] ((resolve (read-string a)) 1))
2
(let [a (Integer. "1000")] (identical? a a))
true
(let [x #{}] (conj x "foo") x)
#{}
(let [v [1 2 3]] (set v))
#{1 2 3}
(let [{:keys [b]} {}] (when b (nil? b)))
nil
(let [a 5] `(~a b c))
(5 user/b user/c)
(let [x 5] (and nil (inc x)))
nil
(read-string "#=(let [a 1] a)")
1
(let [hiredman (atom 20)] (swap! hiredman inc))
21
(let [^{unresolved mysteries} foo 42] foo)
42
(let [x (atom 42)] (+ @x 3))
45
(let [{a :a, :or {:a 5}} {}] a)
nil
(let [; 1] (+ ; ; ;))
3
(let [a 42] ['(a) (list a)])
[(a) (42)]
(let [[x y] [1 2]] [x y])
[1 2]
(let [bar (fn [y] (+ y y))])
nil
(let [x '(+ 1 1)] `~x)
(+ 1 1)
(let [get 'get] (get {:a 1} 2))
2
(let [{foo :foo} {:foo {:bar 123}}] foo)
{:bar 123}
(let [f identity] (println "Var:" (var f)))
nil
"Var: #object[clojure.core$identity 0x2af3b054 clojure.core$identity@2af3b054]\n"
(let [[f & r] [1]] (class r))
nil
(let [r #(reify)] (identical? r r))
true
(let [[a b] (range 10)] [b a])
[1 0]
(let [elts (range 5)] `(+ ~@elts))
(clojure.core/+ 0 1 2 3 4)
(let [x #{:test}] (contains? x :test))
true
(let [num 10] `(+ 1 ~num))
(clojure.core/+ 1 10)
(let [x "+"] ((symbol x) 1 2))
2
(let [x 1 x’ (inc x)] x’)
2
(let [a 5] `[a b ~a])
[user/a user/b 5]
(let [a (atom 1)] (reset! a 2))
2
(let [[a b c] [1 2]] c)
nil
(let [my-name "Konstantinos"] (println "hello" my-name \!))
nil
"hello Konstantinos !\n"
(let [[a b] [1 2]] a b)
2
(let [four (repeat 4)] (take 100000 four))
(4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4...
(let [nat? (partial >= 0)] (nat? 0))
true
(let [x "x"] (or (vector? x) [x]))
["x"]
(let [a 1] [(class a) (class 'a)])
[java.lang.Long clojure.lang.Symbol]
(let [name "Clojure"] (format "Hello, %s" name))
"Hello, Clojure"