(->> :bar println with-out-str (str "foo"))
"foo:bar\n"
(->> a (for [a (range 10)]))
(0 1 2 3 4 5 6 7 8 9)
(->> "abcddefffgeeheff" (into #{}) (apply str))
"abcdefgh"
(defn f [l] (->> :foo (max)))
#'user/f
(-> 10 (range) (->> (map -)))
(0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
(->> 5 (* 2) (* 3))
30
(->> "rhesus macaque" .toUpperCase (map int))
(82 72 69 83 85 83 32 77 65 67 65 81 85 69)
(->> "last" (str "second") (str "first"))
"firstsecondlast"
(->> (range) (remove even?) (take 3))
(1 3 5)
(->> (ns-publics *ns*) vals (map meta))
()
(->> 2 (rand-int) (fn []) (repeatedly 5))
(0 1 1 0 0)
(->> [1 3 2] (reduce max))
3
(->> 1 (* 2) (- 5))
3
(macroexpand-1 '(->> "AAB" (map opposite-strand)))
(map opposite-strand "AAB")
(->> (ns-publics 'clojure.core) keys (into #{}))
#{+' decimal? sort-by macroexpand chunk-first eduction tree-seq unchecked-remainder-int seq reduce when-first find-ns get-thread-bindings contains? every? keep-indexed cond->> subs set multi-fn-impl take-last bit-set qualified-keyword? while ->Eduction proxy* butlast satisfies? line-seq unchecked-subtract-int *print-namespace-maps* take-nth first re-groups seq? dec' ns-unmap with-bindings* inst-ms...
(->> (throw (Exception.)) (if true 4))
4
(->> 1 (nth [1 2 3]))
2
(->> [1 2 3] (split-at 2))
[(1 2) (3)]
(->> 5 (- 2) (- 3))
6
(macroexpand (quote (->> x ((fn [x])))))
((fn [x]) x)
(->> [1 2 3] (filter even?))
(2)
(->> (range) (map print) (take 3))
(nil nil nil)
"012"
(->> 943 range (map inc) coll?)
true
(->> :x (#(doto % println)))
:x
":x\n"
(->> "foobar" (str "baz") (str "quux"))
"quuxbazfoobar"
(->> (range 10) ((partial map inc)))
(1 2 3 4 5 6 7 8 9 10)
(macroexpand '(->> x class print))
(print (class x))
(->> (range) (remove odd?) (take 10))
(0 2 4 6 8 10 12 14 16 18)
(->> [] (cons 2) (atom) (def foo))
#'user/foo
(->> [1 2 3] (reduce +))
6
(clojure.walk/macroexpand-all '(->> x class print))
(print (class x))
(macroexpand '(->> x (drop 2)))
(drop 2 x)
(macroexpand '(->> 1 (a b)))
(a b 1)
(-> 10 range (->> (map inc)))
(1 2 3 4 5 6 7 8 9 10)
(macroexpand-1 '(->> a (b c)))
(b c a)
(macroexpand-1 '(->> x (map a)))
(map a x)
(->> 20 (- 5) (* 2))
-30
(read-string "(->> map @keyword)")
(->> map (clojure.core/deref keyword))
(-> 1 (->> (str 3 2)))
"321"
(->> (rest (range 10)) (take-nth 2))
(1 3 5 7 9)
(macroexpand (quote (->> x (fn [x]))))
(fn [x] x)
(->> ["a" "z" "c"] sort last)
"z"
(->> (inc a) (let [a 5]))
6
(->> (range 50) shuffle (take 10))
(6 11 3 5 34 41 16 15 21 13)
(->> (range 256) (map str) vec)
["0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16" "17" "18" "19" "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" "47" "48" "49" "50" "51" "52" "53" "54" "55" "56" "57" "58" "59" "60" "61" "62" "63" "64" "65" "66" "67" "68" "69" "70" "71" "72" "73" "74" "75" "76" "77" "78" "79" "80" "81"...
(macroexpand-1 '(->> (form) (somefunc :kw)))
(somefunc :kw (form))
(macroexpand '(->> thing (do-something arg-foo)))
(do-something arg-foo thing)
(->> (str "bbloom-" (rand-int 10000000)) keyword)
:bbloom-6949939
(->> 1 (* 2) (+ 3))
5
(->> "abcdef" (.toUpperCase) (take 3) (reverse))
(\C \B \A)