(->> [1 2 3] (map inc) (reduce +))
9
(->> (ns-map *ns*) vals (map meta) (filter :source))
()
(->> (range (int \a) (int \z)) (map char))
(\a \b \c \d \e \f \g \h \i \j \k \l \m \n \o \p \q \r \s \t \u \v \w \x \y)
(macroexpand '(->> coll (filter pred1) (filter pred2)))
(filter pred2 (filter pred1 coll))
(->> (range 6) (partition 2) (map vec) (into {}))
{0 1, 2 3, 4 5}
(->> "AEF" (repeat 2) (apply interleave) (apply str))
"AAEEFF"
(->> "FORTRAN" (map int) (map str) (clojure.string/join) read-string)
70798284826578
(->> [115 116 114] (map char) (apply str))
"str"
(->> (range) (take 3) (cycle) (take 10) (shuffle))
[1 2 2 2 0 1 0 1 0 0]
(->> (repeatedly #(rand-int 150000)) distinct (take 10))
(57508 46168 66065 8439 42970 69937 37849 114593 120141 63487)
(->> (interleave [:a :b :c] [1 2 3]))
(:a 1 :b 2 :c 3)
(->> (repeatedly 5 #(rand-int 500)) (map char))
(\Ɖ \Ņ \ \F \B)
(->> (range) (map inc) (filter even?) (take 5))
(2 4 6 8 10)
(->> 50000 range reverse count range (reduce +))
1249975000
(->> 500 str (map #(Integer. (str %))))
(5 0 0)
(->> ["command" "web" "port" "8080"] (apply hash-map) (clojure.walk/keywordize-keys))
{:command "web", :port "8080"}
(->> (range 1 6) (drop 1) (take 2))
(2 3)
(->> (range) (filter even?) (drop 100) (take 5))
(200 202 204 206 208)
(->> (range 40) (map #(pr %)) first)
nil
"012345678910111213141516171819202122232425262728293031"
(->> 8 inc dec (+ 10) (str "foo"))
"foo18"
(macroexpand '(->> [:foo :bar] cycle (take-nth 4)))
(take-nth 4 (cycle [:foo :bar]))
(->> [nil nil] (remove nil?) (apply max 0))
0
(->> [1 2 3] (filter odd?) (map str))
("1" "3")
(->> [2 {:op :value1} 3] (some map?) :op)
nil
(->> [1 2 3 4] (filter odd?) first)
1
(macroexpand '(->> 1 (2 3 4 5)))
(2 3 4 5 1)
(->> [1 2] first (+ 2) (* 3))
9
(clojure.walk/macroexpand-all '(->> [:foo :bar] cycle (take-nth 4)))
(take-nth 4 (cycle [:foo :bar]))
(macroexpand '(->> 1 (f x y z)))
(f x y z 1)
(->> #(Double/parseDouble %) class supers (drop 10))
(clojure.lang.Fn)
(->> "foo bar" keyword vector pr-str read-string reverse)
(bar :foo)
(->> (a b c) quote (drop 1) type)
clojure.lang.LazySeq
(->> 3 (- a) (/ 4) (let [a 7]))
1
(macroexpand-1 '(->> "test" (count) (+ 5) (- 4)))
(- 4 (+ 5 (count "test")))
(->> [1 2 3] cycle (take-nth 4) (take 10))
(1 2 3 1 2 3 1 2 3 1)
(defn rcomp [& args] (->> args reverse (apply comp)))
#'user/rcomp
(->> [2 {:op :value1} 3] (filter map?) first :op)
:value1
(macroexpand (macroexpand '(->> [:foo :bar] cycle (take-nth 4))))
(take-nth 4 (cycle [:foo :bar]))
(->> (concat "Raynes" "hyPiRion") sort (take 3) (apply str))
"PRR"
(->> [\a \z] (map int) (apply range) (map char))
(\a \b \c \d \e \f \g \h \i \j \k \l \m \n \o \p \q \r \s \t \u \v \w \x \y)
(->> (map #{"the"} #{"the" "blah"}) (filter identity))
("the")
(->> 5 (/ 2) inc str reverse (apply str))
"5/7"
(-> [] (conj "foo" "bar") (->> (interpose "/") (apply str)))
"foo/bar"
(->> [false "-" false false "-"] (drop-while false?) (first))
"-"
(->> "bar" (conj []) (into ["foo"]) (interpose "/") (apply str))
"foo/bar"
(-> [1 2] (->> (map inc) (reduce +)) inc)
6
(defmacro make-hard-to-read [& body] `(->> ~@(reverse body)))
#'user/make-hard-to-read
(->> (range 10) (map inc) (reduce +))
55
(->> "one two" (#(clojure.string/split % #" ")) count)
2
(defn f [l] (->> l (map :foo) (apply max)))
#'user/f