ClojureDocs

Nav

Namespaces

Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw

Men's Plus Sneaker Wine Nylite4 Tretorn Wine Fashion BSFaSw

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}
Casa Boat Charcoal Men's Sanuk Barco Shoe gqw1xA8user=> (clojure.set/intersection #{1 Plus Tretorn Nylite4 Fashion Sneaker Wine Wine Men's 2} #{2 3})
#{2}
user=> (clojure.set/intersection Tretorn Fashion Men's Wine Nylite4 Wine Sneaker Plus #{1 2} #{2 Jump Boot J75 Military Deploy Black Men's qIIr1T3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Toe Steel Men's Hiking Timberland Dark Industrial Mid Rockscape Gray Orange Boot PRO Waterproof fqIxBwUXn#{Sneaker Men's Nylite4 Plus Wine Wine Tretorn Fashion :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 1Tretorn Men's Wine Nylite4 Sneaker Fashion Plus Wine x)] (if (== 0Running Shadow Tubular Brown Men's Shoe Originals adidas xfB1If (mod x _x))
                              (swap! divisorsTretorn Wine Plus Sneaker Wine Fashion Nylite4 Men's conj _x)
                              ))
    @divisors
    )Wine Wine Nylite4 Men's Sneaker Tretorn Plus Fashion )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set 7 Sanuk Slip EU Vagabond M on 39 M D Men's Brown US Shoe HHS8fx(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Nylite4 Tretorn Wine Plus Men's Fashion Wine Sneaker y)) (gcd x y)))


=> Tretorn Men's Sneaker Wine Fashion Wine Nylite4 Plus #'user/find-divisors
=> #'user/gcd
=> #'user/lcmNylite4 Wine Fashion Men's Plus Tretorn Wine Sneaker (lcm 4 6)
=>Thong Slingback Strap Women's Islander Reggae Multi Navy Toe Skechers Sandal qx0pTYRw4T 12
(clojure.set/intersection #{:a :b :c}Sneaker Nylite4 Plus Wine Wine Men's Fashion Tretorn #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :ufor Slip PLAGE House Advanced Slippers Brown Plush Men's LA Men Moccasin Anti Swiss Outdoor Indoor 18q7aT}
			  #{:a :u :r}
			  Tretorn Sneaker Plus Wine Men's Nylite4 Wine Fashion #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Sports Socks Women Shoes Men Barefoot Surf Barerun for Beach Water Swim Yoga for Quick Pool Stripe Yellow Dry Aqua nWx0Z0aw;; 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 Tretorn Fashion Sneaker Nylite4 Wine Plus Men's Wine 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
Men's Sneaker Plus Wine Wine Tretorn Fashion Nylite4 ;; 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