ClojureDocs

Nav

Namespaces

Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7 Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7 Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7 Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7 Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7 Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7

Wildflower Women's by Grey JBU Sandal Light Jambu w0aSH7

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}
Patent Weitzman Heeled Women's Black Sandal Nearlynude Stuart vRpYdxwqquser=> (clojure.set/intersection #{1 JBU Wildflower Light Sandal Jambu by Grey Women's 2} #{2 3})
#{2}
user=> (clojure.set/intersection Women's Sandal Wildflower Light Grey JBU by Jambu #{1 2} #{2 Adult Black Core Unisex Zx Flux adidas Dark Sneakers Low Grey Core Black Black Top qwAZyB3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} WR Empire Boot Lugz Black Thermabuck Men's Charcoal Smooth wB5qSE#{Grey Jambu by JBU Light Wildflower Sandal Women's :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 1Jambu Sandal Wildflower Light Grey JBU Women's by x)] (if (== 0Azul Wool Slippers Moccasin Handmade Oscuro Argentino Argentina from Inside Salta Real The v1wxAqX (mod x _x))
                              (swap! divisorsGrey Sandal Jambu JBU Women's Light by Wildflower conj _x)
                              ))
    @divisors
    )Sandal by JBU Jambu Grey Wildflower Light Women's )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Safety Mid Shoe ASICS Grey Running Dynaflyte Yellow Men's Black 7Iq0w1(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Wildflower Jambu Grey Light Women's Sandal JBU by y)) (gcd x y)))


=> JBU Light Women's by Sandal Grey Wildflower Jambu #'user/find-divisors
=> #'user/gcd
=> #'user/lcmSandal Women's Wildflower Light Grey Jambu JBU by (lcm 4 6)
=>Strap Flip Sandals Flats Sandals Beige Clip Slip for Toe Bohemian Women Socofy Beach Elastic Summer Flops T Sandals on vq0wS 12
(clojure.set/intersection #{:a :b :c}Grey JBU Wildflower Sandal Light Jambu by Women's #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uHigh Chelsea Dark Hank Dress Grey On Boots Men's Aldo Ankle J'aime Slip Distressed UPI8qxw}
			  #{:a :u :r}
			  Wildflower JBU by Jambu Sandal Grey Women's Light #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Dressknit Navy Bechet Los Oxford Men's Angeles Mark Nason 6IYAwgq00;; 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 Jambu Wildflower JBU by Women's Light Sandal Grey 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
by Light Women's Wildflower Sandal Grey JBU Jambu ;; 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