(macroexpand-1 '(->> x (a b c)))
(a b c x)
(->> (range 30) (filter even?) (drop 10))
(20 22 24 26 28)
(->> ["foo" "bar"] (interpose "/") (apply str))
"foo/bar"
(->> '([1] 1) (keep empty?) first)
false
(->> 50 (range) (map atom) (def united-states))
#'user/united-states
(->> (range 10) (drop 1) (drop-last 1))
(1 2 3 4 5 6 7 8)
(->> "AEF" (repeat 2) (apply interleave) str)
"clojure.lang.LazySeq@a7859cc1"
(->> (range 10) (map inc) (interpose 5))
(1 5 2 5 3 5 4 5 5 5 6 5 7 5 8 5 9 5 10)
(->> 5 (* 2) (+1) (when false))
nil
(take 3 (->> (range 10) (partition-all 3)))
((0 1 2) (3 4 5) (6 7 8))
(macroexpand-1 '(->> [old-position move] (apply interleave)))
(apply interleave [old-position move])
(->> [oh boy] quote cycle (take 10))
(oh boy oh boy oh boy oh boy oh boy)
(-> [] (conj 2) atom (->> (def foo)))
#'user/foo
(macroexpand '(->> (generate-seq) (map println) doall))
(doall (map println (generate-seq)))
(->> '(1 2 3) (map str))
("1" "2" "3")
(->> (range 7) (map inc) (filter even?))
(2 4 6)
(clojure.walk/macroexpand-all '(-> a (->> b c)))
(c (b a))
(->> 'x (str 'a 'b 'c 'd))
"abcdx"
(-> * #(%) (->> (def a)))
#'user/a
(->> a (+ 5) (let [a 5]))
10
(->> [[[:a 1]] [[:b 2]]] (reduce into {}))
{:a 1, :b 2}
(->> {:a 10, :b 20} seq flatten)
(:a 10 :b 20)
(->> "does not use the whole alphabet" (map char) set (= (->> (range 97 123) (map char) set)))
false
(->> 3 (* 3) (/ 4) (* 5))
20/9
(macroexpand '(->> 1 (+ 2) (+ 3)))
(+ 3 (+ 2 1))
(macroexpand-1 '(->> default-trip (add-person "Krishna") (remove-person "Krishna")))
(remove-person "Krishna" (add-person "Krishna" default-trip))
(->> (range) (filter even?) (take 5) (reduce +))
20
(->> #(rand-int 2) (repeatedly 50) (partition 5))
((1 1 1 0 0) (1 1 0 1 0) (1 1 1 0 0) (1 0 1 1 1) (0 1 0 1 0) (1 1 1 1 1) (0 1 1 1 1) (1 1 1 1 0) (1 0 0 1 0) (1 1 1 1 0))
(macroexpand-1 '(->> 1 (+ 2) (+ 3)))
(+ 3 (+ 2 1))
(->> (range 100000) (map list) (apply concat) (first))
0
(->> [1 2 3 4 5] (reverse) (first))
5
(->> [:foo :bar] cycle (take-nth 2) (take 10))
(:foo :foo :foo :foo :foo :foo :foo :foo :foo :foo)
(clojure.walk/macroexpand-all '(->> 1 (* 2) (+ 3)))
(+ 3 (* 2 1))
(->> (range 100000) (map inc) (seque) (reduce +))
5000050000
(macroexpand (->> (range 5) (map inc) (map dec)))
(0 1 2 3 4)
(->> (range (int \a) (int \k)) (map char))
(\a \b \c \d \e \f \g \h \i \j)
(macroexpand '(->> "last" (str "second") (str "first")))
(str "first" (str "second" "last"))
(->> (range) (filter even?) (map inc) (take 5))
(1 3 5 7 9)
(macroexpand-1 '(->> A (F E R T)))
(F E R T A)
(->> [[[[[[[1]]]]]]] (iterate first) (take-while sequential?) last first)
1
(->> #(rand) (repeatedly 2) #() (repeatedly 3))
((0.37484905825003145 0.5298628367357336) (0.8659461211867145 0.25177049574361154) (0.8760790144626319 0.3061530050038669))
(->> (range 1 10) (filter even?) (reduce +))
20
(->> 5 (+ 1 2 3) (print "result"))
nil
"result 11"
(->> #(Double/parseDouble %) class supers (drop 5))
(java.lang.Object java.util.concurrent.Callable clojure.lang.IMeta clojure.lang.IObj clojure.lang.IFn clojure.lang.Fn)
(macroexpand (quote (->> [:foo :bar] cycle (take-nth 4))))
(take-nth 4 (cycle [:foo :bar]))
(->> (ns-map *ns*) vals (map meta) (filter :src))
()
(defn f [l] (->> l (map :foo) (max)))
#'user/f
(macroexpand `(->> {:a 0, "b" 4} ("b")))
("b" {:a 0, "b" 4})
(->> 5 range (map #(* 2 %)))
(0 2 4 6 8)
(macroexpand '(->> body (with abc) (with def)))
(with def (with abc body))