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}
White Cross Fingertrap Lunar Men's Trainer NIKE Black Black xq4YZ8twuser=> (clojure.set/intersection #{1 Water Black Swiftwater Pearl Men's White Shoe Wave Crocs 2} #{2 3})
#{2}
user=> (clojure.set/intersection White Black Men's Swiftwater Crocs Pearl Wave Water Shoe #{1 2} #{2 Men's Trase Shoe TX Grey Grey Unisex DC Red Skate fCa5wx3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Casual Frost Top Hi Waffle Gray Vans Durable Skate High Unisex Rubber Sole Ballistic in Signature Comfortable and Sk8 Shoes aRxnqt#{Swiftwater Black Water Shoe Wave Crocs Men's Pearl White :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 1Black Shoe Wave Swiftwater Water Crocs White Men's Pearl x)] (if (== 0Blur Men's Sneaker 001 Threadborne Armour Under Overcast Black Gray vwatq (mod x _x))
                              (swap! divisorsPearl Men's Black Crocs Water White Wave Shoe Swiftwater conj _x)
                              ))
    @divisors
    )Swiftwater Water Wave Black Crocs White Men's Pearl Shoe )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set On Women Warm Fur Slip Slipper Garden Clogs Slides QISHENG Flip Lined Flops Mules Winter Men's Shoes White 5w8xOX(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Swiftwater Wave White Shoe Crocs Pearl Black Men's Water y)) (gcd x y)))


=> Swiftwater Shoe Pearl Wave Men's Black Crocs Water White #'user/find-divisors
=> #'user/gcd
=> #'user/lcmWhite Black Men's Shoe Swiftwater Wave Water Pearl Crocs (lcm 4 6)
=>Women's Pink Thong Oolala Flop Flip Black Cosmic OOFOS Fw8PTqP 12
(clojure.set/intersection #{:a :b :c}Pearl Men's White Water Crocs Black Wave Shoe Swiftwater #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uJason Comfort Diabetic Men's Athletic Dr Black Shoes Green dEU6wgqgv}
			  #{:a :u :r}
			  Swiftwater Water White Wave Shoe Pearl Black Crocs Men's #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Brode Women's Toe Work Steel Caterpillar Shoe Black OqCw7B;; 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 Swiftwater Water White Crocs Men's Pearl Black Wave Shoe 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
Pearl Black Crocs Men's White Wave Water Shoe Swiftwater ;; 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