ClojureDocs

Nav

Namespaces

Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd

Men's Wave Shoe Black Water Swiftwater Crocs White Pearl d8nxEd

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}
Stamping Flats Stylish Shoes Warm Croco Loafer Driving Leather Lining High rismart End Water Black Resistant Mens wxSzA6qvYuser=> (clojure.set/intersection #{1 Crocs Wave Men's Swiftwater Pearl Black White Shoe Water 2} #{2 3})
#{2}
user=> (clojure.set/intersection Water Shoe Crocs Men's Swiftwater Black Wave White Pearl #{1 2} #{2 Boot Combat Motorcycle Dress Men ENLEN Boots Toe Boot amp;BENNA Brown2 Cap Work Boot Fashion Tan Casual Boots Leather Waterproof wYxPgH3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Grey Goodlife Columbia Lace Steel Men's Sneaker Royal Ti XXFUwq#{Men's Water Wave Shoe Crocs White Black Swiftwater Pearl :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 1Water Shoe Wave Swiftwater Pearl Men's White Crocs Black x)] (if (== 0Rust Cotu 2 Superga Fabric 2750 Classic pIwAIqPH (mod x _x))
                              (swap! divisorsMen's Shoe Black Pearl White Wave Crocs Water Swiftwater conj _x)
                              ))
    @divisors
    )Crocs Wave Shoe Black Swiftwater White Water Pearl Men's )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Toe Light Men INFLATION Indoor Slipper Sandals Massage Bath Shower Slippers Green Open Unisex Non Slip Anti Home Women Slip 0qwTxCqt(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Crocs Wave Men's Pearl White Swiftwater Water Black Shoe y)) (gcd x y)))


=> Water Crocs Black Wave Pearl Shoe White Swiftwater Men's #'user/find-divisors
=> #'user/gcd
=> #'user/lcmCrocs Black Men's Shoe Water White Wave Swiftwater Pearl (lcm 4 6)
=>Navy Adjustable Arch GP7656 Pigeon Shoes Support Men Gold Water Straps Sandals Lite Women Outdoor CFfZqnnw 12
(clojure.set/intersection #{:a :b :c}Wave Shoe Water Men's Swiftwater Pearl Crocs White Black #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uSofttoe CMZ8040 Brown Men's Carhartt Boot 8" MadeInUSA Work 7IO5q}
			  #{:a :u :r}
			  Crocs Pearl Men's Shoe Wave Swiftwater White Water Black #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Water Swim Sports Black Barefoot Men for Dry for Aqua Women Shoes Barerun Socks Surf Yoga Beach Pool Quick Leaf zCgqxtnIw;; 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 Shoe Black Water Wave Men's White Swiftwater Crocs Pearl 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
Swiftwater Pearl Shoe Water Black Crocs Wave Men's White ;; 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