(-> "foobar" (->> (str "p:")))
"p:foobar"
(macroexpand '(->> :a identity))
(identity :a)
(->> (Exception.) .getStackTrace seq pr-str)
"([jdk.internal.reflect.GeneratedConstructorAccessor23 newInstance nil -1] [jdk.internal.reflect.DelegatingConstructorAccessorImpl newInstance \"DelegatingConstructorAccessorImpl.java\" 45] [java.lang.reflect.Constructor newInstanceWithCaller \"Constructor.java\" 499] [java.lang.reflect.Constructor newInstance \"Constructor.java\" 480] [sci.impl.Reflector invokeConstructor \"Reflector.java\" 299] ...
(->> "x" (str 1 2))
"12x"
(->> (range) (filter even?) (first))
0
(->> (range 10) (filter odd?))
(1 3 5 7 9)
(->> 5 range second inc)
2
(->> (range 10) (filter even?))
(0 2 4 6 8)
(->> :a :b :c #'+)
#'clojure.core/+
(->> 4 (println "foo" "bar"))
nil
"foo bar 4\n"
(macroexpand '(->> 1 (2)))
(2 1)
(->> 5 range (map inc))
(1 2 3 4 5)
(->> (range 100) (run! prn))
nil
"0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50\n51\n52\n53\n54\n55\n56\n57\n58\n59\n60\n61\n62\n63\n64\n65\n66\n67\n68\n69\n70\n71\n72\n73\n74\n75\n76\n77\n78\n79\n80\n81\n82\n83\n84\n85\n86\n87\n88\n89\n90\n91\n92\n93\n94\n95\n96\n97\n98\n99\n"
(->> ~@[hurr durr] quote)
(clojure.core/unquote-splicing [hurr durr])
(->> (range 5) (map inc))
(1 2 3 4 5)
(->> 'foo (str 'bar) symbol)
barfoo
(macroexpand '(->> [] (conj 2)))
(conj 2 [])
(->> 10 conj (-> [1]))
[1 10]
(->> (get-thread-bindings) (keys) (map str))
("#'clojure.core/*out*" "#'clojure.core/*ns*")
(->> (range) (filter odd?) (first))
1
(macroexpand '(->> map @keyword))
(clojure.core/deref keyword map)
(->> "12345" butlast (apply str))
"1234"
(macroexpand '(->> foo @bar))
(clojure.core/deref bar foo)
(->> (str (rand-int 10000000)) keyword)
:3423723
(->> 1 2 3 #'+)
#'clojure.core/+
(->> 1 (nth [:a :b]))
:b
(macroexpand '(->> whatever (fn [])))
(fn [] whatever)
(macroexpand-1 '(->> "test" (count)))
(count "test")
(->> "foo" (format "prepend %s"))
"prepend foo"
(->> "1234" butlast (apply str))
"123"
(macroexpand-1 '(->> x @@y))
(clojure.core/deref (clojure.core/deref y) x)
(->> [{:a 1} {:b 2}])
[{:a 1} {:b 2}]
(let [wtf (iterate macroexpand-1 '(->> . :__ (->> @two (->> args))))] (= (nth wtf 5) (nth wtf 9)))
true
(->> 256 range (map char) (filter #(->> % pr-str count (< 2))))
(\backspace \tab \newline \formfeed \return \space)
(((-> (->> (#(% %) (->> (! (->> (($ $) ?) #() (-> [?]))) #() (-> [$])))) (->> #() (-> [!]))) (->> (->> (({(= (+) $) #(*)} (= =) #(* $ (! (- $ (*)))))) #() (-> [$])) #() (-> [!]))) 10)
3628800
((->> 5 #(class %&)))
5
(->> "foo" .getBytes (new String))
"foo"
(->> "foo" seq (apply str))
"foo"
(macroexpand-1 (->> 5 (- 3)))
-2
(->> false (if true true))
true
(->> "Ooh, me too!" (println))
nil
"Ooh, me too!\n"
(macroexpand '(->> x (fn [x])))
(fn [x] x)
(->> 5 (/ 2) (+ 1))
7/5
(->> (range 10) (apply max) inc)
10
(->> (range 5000) (set) (take 5))
(0 2721 893 2558 920)
(->> 2 (- 5) (- 10))
7
(->> 1 (- 2) (- 7))
6
(-> 5 range (->> (map inc)))
(1 2 3 4 5)
(macroexpand '(->> x (f y)))
(f y x)
(-> "foo" .getBytes (->> (new String)))
"foo"