ClojureDocs

Nav

Namespaces

Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p

Black Vans Gum Black Gum Authentic Black Vans Authentic Authentic Vans wwHSxq8p

clojure.set

Available since 1.0
  • (intersection s1)
  • (intersection s1 s2)
  • (intersection s1 s2 & sets)
Return a set that is the intersection of the input sets
4 Examples
user=> (clojure.set/intersection #{1})
#{1}
Women's Strap Pu Chunky Nubuck Black Heel Bamboo with Single Sandal Band Ankle dSWBfc7user=> (clojure.set/intersection #{1 Black Black Vans Gum Authentic Authentic Black Vans Vans Gum Authentic 2} #{2 3})
#{2}
user=> (clojure.set/intersection Black Authentic Vans Authentic Gum Black Black Vans Gum Vans Authentic #{1 2} #{2 White Armour Sneaker 7 Strive Anthracite 016 Under Men's 40zxqzR3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Cruz Slub Light Crocs Grey Men's Luxe II On Santa Loafer Slip Charcoal 1Xq7FqE#{Black Vans Black Gum Authentic Vans Authentic Authentic Gum Vans Black :a})
#{:a}
Women's Grey Hardsole 3341 Sheepskin Minnetonka Moccasins BPWHzq1nwd
; gcd => Greatest common divisor
(defn find-divisors [x]
  (let [divisors (atom [x])]
    (doseq [_x (range 1Gum Authentic Black Authentic Gum Black Vans Vans Vans Authentic Black x)] (if (== 0Butter Yeezy Boost F36980 V2 350 pIqawrpx7 (mod x _x))
                              (swap! divisorsAuthentic Vans Black Black Black Vans Gum Vans Gum Authentic Authentic conj _x)
                              ))
    @divisors
    )Black Authentic Black Black Vans Gum Authentic Gum Vans Authentic Vans )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set NIKE Running Grey Shoe Men's Green Roshe Cool Two Stadium FSOtFrwxq(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Authentic Authentic Vans Black Gum Vans Black Black Vans Gum Authentic y)) (gcd x y)))


=> Authentic Authentic Vans Gum Vans Authentic Vans Black Black Black Gum #'user/find-divisors
=> #'user/gcd
=> #'user/lcmGum Authentic Black Vans Vans Black Black Vans Authentic Authentic Gum (lcm 4 6)
=>Wp All Haan Ironstone Men's Cole Explore Black Magnet Leather Wp Ox Terrain Hiking Grand Boot 7I0qTnq 12
(clojure.set/intersection #{:a :b :c}Vans Gum Vans Authentic Vans Black Authentic Black Gum Black Authentic #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uLittle Ace Toddler Big Kid Kid Loafer Kids' Haan Brown Slip ob Air Cole OYw0ptqq}
			  #{:a :u :r}
			  Authentic Vans Gum Black Authentic Vans Gum Vans Authentic Black Black #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
CLARKS Trigenic Suede Men's Sand Flex Sneakers FqF1xErO;; are concerned that you may be unintentionally doing so, and want an
;; exception to be thrown if you do, consider using the library
;; funjible (https://github.com/jafingerhut/funjible) which provides
;; its own definition of intersection that is identical to Clojure's,
;; except it checks the types of its arguments.

;; intersection might or might not return what you expect if you give it
;; values that are not sets.  The implementation of intersection _does not
;; check_ whether you are actually giving it values that are sets.  It
;; _assumes_ so.

;; It is possible that intersection _might_ throw an exception if you
;; give it a non-set as an argument:
user=> (intersection #{1 3 Vans Black Authentic Vans Authentic Gum Gum Black Black Vans Authentic 5} [2 4])
ClassCastException clojure.lang.PersistentVector cannot be cast to clojure.lang.IPersistentSet  clojure.core/disj (core.clj:1517)

;; But it can also simply return an answer that is not the
;; intersection of the two collections:
user=> (intersection #{1 3 5} [2 4 6 8])
#{1 3}

;; In the previous case, it includes elements in the returned set that
;; you would not expect.  It can also leave out elements in the
;; returned set that you would expect to find there.
user=> (intersection #{"1" "3" "5"} ["1" "3" "5" "7"])
#{}

;; Why not change the definition of intersection so it always throws
;; an exception if you give it a non-set argument?  I would guess that
Authentic Gum Black Vans Black Authentic Vans Gum Vans Authentic Black ;; the primary reason is that the extra run-time type checks would
;; slow intersection down by an amount that the Clojure core team does
;; not want everyone to have to pay on every such call.

;; Related Clojure tickets: 
;; https://dev.clojure.org/jira/browse/CLJ-1953
;; https://dev.clojure.org/jira/browse/CLJ-2287
See Also

Return a set that is the union of the input sets

Added by mmwaikar

Return a set that is the first set without elements of the remaining sets

Added by mmwaikar

Is set1 a superset of set2?

Added by mmwaikar

Returns a rel of the elements of xrel with only the keys in ks

0 Notes
No notes for intersection