(let [fs (juxt inc dec)] (fs 1))
[2 0]
((juxt :a :b) {:a 1, :b 2})
[1 2]
(map (juxt class str) [(fn []) (fn test [])])
([sci.impl.fns$fun$arity_0__26683 "sci.impl.fns$fun$arity_0__26683@7baacf84"] [sci.impl.fns$fun$arity_0__26683 "sci.impl.fns$fun$arity_0__26683@756d2e81"])
((juxt identity class) (cons 1 (lazy-seq nil)))
[(1) clojure.lang.Cons]
(not-any? true? ((juxt vector? map? list?) 5))
true
((juxt = ==) (int 1) (long 1))
[true true]
(map (juxt inc inc dec) [3 5 11])
([4 4 2] [6 6 4] [12 12 10])
((juxt inc dec odd? even? pos? neg?) 12)
[13 11 false true true false]
(map (juxt (comp inc rand-int) +) (range 10))
([1 0] [1 1] [1 2] [2 3] [1 4] [2 5] [4 6] [6 7] [3 8] [8 9])
(map (juxt dec identity inc) [-1 0 1])
([-2 -1 0] [-1 0 1] [0 1 2])
(apply (juxt + * / -) [1 2])
[3 2 1/2 -1]
(sort-by (juxt second first) [[1 3] [2 1]])
([2 1] [1 3])
(apply str ((juxt namespace (constantly "/") name) :foo/bar))
"foo/bar"
(into {} (map (juxt keyword identity) ['x 'y 'z]))
{:x x, :y y, :z z}
(-> clojure.repl/source var meta ((juxt :file :line :source)))
[nil nil nil]
(apply assoc {} (mapcat (juxt identity inc) (range 3)))
{0 1, 1 2, 2 3}
(map (comp second (juxt println double)) (range 4))
(0.0 1.0 2.0 3.0)
"0\n1\n2\n3\n"
(apply identical? ((juxt identity vec) [1 2 3]))
true
(apply identical? ((juxt first second) '(:foo :foo)))
true
(-> {:lat 1, :long 2} ((juxt :lat :long)))
[1 2]
((juxt (partial + 1) (partial + 2)) 3)
[4 5]
(first (filter identity ((apply juxt [true? false? coll?]) [])))
true
((juxt identity type) (first '(+ 1 2)))
[+ clojure.lang.Symbol]
(map (juxt + -) [1 2] [3 4])
([4 -2] [6 -2])
((juxt = identical?) "a" (apply str (rest "ba")))
[true false]
(map (juxt inc dec) [0 1 2 3])
([1 -1] [2 0] [3 1] [4 2])
(map (juxt identity meta) [^:foo 'foo '^:foo foo])
([foo nil] [foo {:foo true}])
((juxt + * - /) 1 2 3)
[6 6 -4 1/6]
((juxt :id :name :id) {:id 1, :name "bob"})
[1 "bob" 1]
(defn play [elem & forms] ((juxt forms) elem))
#'user/play
(map (juxt identity (partial * 2)) (range 5))
([0 0] [1 2] [2 4] [3 6] [4 8])
((comp second (juxt list +)) 1 2 3)
6
(map (juxt seq seq? sequential?) ['(1) [1] []])
([(1) true true] [(1) false true] [nil false true])
((juxt #(apply + %&) +) 2 2)
[4 4]
(do (declare x) ((juxt :namespace :name) (meta #'x)))
[nil x]
((comp (juxt identity supers) class) (first {:a 1}))
[clojure.lang.MapEntry #{clojure.lang.IMapEntry java.lang.Iterable clojure.lang.Reversible clojure.lang.Sequential clojure.lang.IPersistentStack clojure.lang.AFn java.util.List java.lang.Runnable clojure.lang.Counted java.io.Serializable java.util.Map$Entry clojure.lang.IHashEq java.lang.Comparable clojure.lang.ILookup clojure.lang.IPersistentCollection clojure.lang.IPersistentVector clojure.lang....
((juxt sequential? (comp seq? seq)) #{1 2})
[false true]
((juxt unchecked-divide-int mod quot rem /) 20 -6)
[-3 -4 -3 2 -10/3]
(filter (juxt identity println) [0 1 2 3])
(0 1 2 3)
"0\n1\n2\n3\n"
((juxt apply reduce) (partial list '+) (range 4))
[(+ 0 1 2 3) (+ (+ (+ 0 1) 2) 3)]
(apply hash-map (map (juxt identity -) (range 4)))
{[0 0] [1 -1], [2 -2] [3 -3]}
(clojure.walk/postwalk (juxt identity meta) (with-meta [1] {:m 1}))
[[[1 nil]] {:m 1}]
((juxt min max) 10 1 9 100 2)
[1 100]
(apply identical? ((juxt identity (partial format "%s")) "word"))
false
(-> {:latitude 1, :longitude 2} ((juxt :latitude :longitude)))
[1 2]
(vec (mapcat (juxt identity str) '[par1 par2]))
[par1 "par1" par2 "par2"]
((juxt apply reduce) (partial list '+) (range 5))
[(+ 0 1 2 3 4) (+ (+ (+ (+ 0 1) 2) 3) 4)]
((juxt vector? nil?) (re-matches #"a(b)c" "abc"))
[true false]
(.length (str (macroexpand '((juxt namespace symbol) `'`'`'`a))))
12358
(apply = ((juxt first second) '(foo foo)))
true