(apply format "%s/%s" ((juxt namespace name) :foo/bar))
"foo/bar"
((juxt :first :last) {:first "Bob", :last "Smith"})
["Bob" "Smith"]
((juxt :id :name) {:id 1, :name "Sean"})
[1 "Sean"]
((juxt remove filter) even? (range 1 9))
[(1 3 5 7) (2 4 6 8)]
(into {} (map (juxt class identity) '({} [] #{})))
{clojure.lang.PersistentArrayMap {}, clojure.lang.PersistentHashSet #{}, clojure.lang.PersistentVector []}
((juxt keys vals) {1 2, 3 4})
[(1 3) (2 4)]
((juxt = identical?) '^:a foo '^:b foo)
[true false]
(every? identity ((juxt (constantly true) pos?) 1))
true
((juxt :foo :bar) {:bar 6, :foo 5})
[5 6]
((juxt filter remove) even? (range 1 9))
[(2 4 6 8) (1 3 5 7)]
(apply (juxt min max) (repeatedly 1000 rand))
[2.9489930668558095E-4 0.9970304102870349]
((juxt str pr-str identity) '("string" "more"))
["(\"string\" \"more\")" "^{:line 1, :column 30} (\"string\" \"more\")" ("string" "more")]
((juxt + - *) 1 2 3)
[6 -4 6]
((juxt :foo :bar) {:bar 2, :foo 1})
[1 2]
((juxt count first last) [1 2 3])
[3 1 3]
((juxt sequential? (comp seq? seq)) {1 2})
[false true]
((juxt * + - /) 4 6)
[24 10 -2 2/3]
((juxt :a :b) {:a 0, :b 1})
[0 1]
((juxt = identical?) [:one 2] [:one 2])
[true false]
(map (juxt inc dec) [1 2 3])
([2 0] [3 1] [4 2])
(map (juxt dec identity inc) (range 5))
([-1 0 1] [0 1 2] [1 2 3] [2 3 4] [3 4 5])
(dorun (map println ((juxt str pr-str) "foo\"bar")))
nil
"foo\"bar\n\"foo\\\"bar\"\n"
((comp (juxt identity supers) class) [1 2])
[clojure.lang.PersistentVector #{java.lang.Iterable clojure.lang.Reversible clojure.lang.Sequential clojure.lang.IReduce clojure.lang.IPersistentStack clojure.lang.AFn java.util.List java.lang.Runnable clojure.lang.Counted java.io.Serializable clojure.lang.IHashEq clojure.lang.IReduceInit java.lang.Comparable clojure.lang.ILookup clojure.lang.IKVReduce clojure.lang.IPersistentCollection clojure.la...
(into {} (map (juxt identity inc) (range 5)))
{0 1, 1 2, 2 3, 3 4, 4 5}
((juxt str pr-str) {:a "hello", :b 'hello})
["{:a \"hello\", :b hello}" "{:a \"hello\", :b hello}"]
(into {} (map (juxt + str) (range 3)))
{0 "0", 1 "1", 2 "2"}
((juxt key val) (first (seq {:a 1})))
[:a 1]
(every? identity ((juxt (constantly false) pos?) 1))
false
((juxt = := '= #'=) 1 2)
[false 2 2 false]
(map (juxt name str) '[foo bar/baz])
(["foo" "foo"] ["baz" "bar/baz"])
((juxt eval reverse) '(+ 3 4))
[7 (4 3 +)]
((juxt pr-str str) (lazy-seq [1 2 3]))
["(1 2 3)" "clojure.lang.LazySeq@7861"]
((juxt str #(+ 1 %)) 2)
["2" 3]
((juxt take drop take-nth) 2 (range 10))
[(0 1) (2 3 4 5 6 7 8 9) (0 2 4 6 8)]
(map (juxt - inc) [1 2 3])
([-1 2] [-2 3] [-3 4])
((juxt type class) `(1 2 3))
[clojure.lang.Cons clojure.lang.Cons]
((juxt :foo :bar) {:bar 2, :foo 1})
[1 2]
((juxt list? seq?) (cons 1 '(2)))
[false true]
((juxt :foo :bar) {:bar 2, :foo 1})
[1 2]
(sort-by (juxt clojure.string/reverse identity) ["quux" "foo" "bar"])
("foo" "bar" "quux")
((juxt macroexpand-1 macroexpand) '(with-in-str "foo" (read)))
[(clojure.core/with-open [s__28809__auto__ (clojure.core/-> (java.io.StringReader. "foo") clojure.lang.LineNumberingPushbackReader.)] (clojure.core/binding [clojure.core/*in* s__28809__auto__] (read))) (clojure.core/let [s__28809__auto__ (clojure.core/-> (java.io.StringReader. "foo") clojure.lang.LineNumberingPushbackReader.)] (try (clojure.core/with-open [] (clojure.core/binding [clojure.core/*in...
((juxt first identity) " the final frontier")
[\space " the final frontier"]
(apply = ((juxt read-string symbol) "symbol name"))
false
((apply juxt [even? odd? pos? integer?]) 3)
[false true true true]
((juxt pop identity peek) (conj [0] 1))
[[0] [0 1] 1]
((juxt nth get) [:a :b :c] 1)
[:b :b]
(map (juxt identity str) [1 2 3])
([1 "1"] [2 "2"] [3 "3"])
(mapcat (juxt inc identity) [1 2 3])
(2 1 3 2 4 3)
((juxt (fn [x] (meta x)) meta) clojure.core/+)
[nil nil]
(map (juxt identity -) [1 2 3])
([1 -1] [2 -2] [3 -3])