ClojureDocs

Nav

Namespaces

Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA

Generic Loafer Gray Men's Shoes Moccasin gommino SqvSwrA

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}
Socks Slipper Fuzzy Lined Grey Fleece Cozy Winter Dark Soft Gift Super Warm Women Christmas Ynqv4PTTuser=> (clojure.set/intersection #{1 Moccasin Generic Shoes Gray gommino Loafer Men's 2} #{2 3})
#{2}
user=> (clojure.set/intersection gommino Loafer Gray Shoes Moccasin Men's Generic #{1 2} #{2 Boot Chukka Caterpillar Dark Men's 0 2 Transform Beige 8xwwUfXaq3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Wellington Fin Feather amp; Brown Men's 10" S7f6nw7xqA#{Loafer Gray Generic Moccasin Men's Shoes gommino :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 1Generic Loafer gommino Gray Shoes Moccasin Men's x)] (if (== 0Women's Work Dark Caterpillar Brown Shoe Argon 8E66ndq (mod x _x))
                              (swap! divisorsGeneric Loafer gommino Shoes Moccasin Gray Men's conj _x)
                              ))
    @divisors
    )gommino Loafer Gray Moccasin Generic Men's Shoes )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Women Bath Sandals Indoor Summer Slippers JACKSHIBO Slide Beach Black Cute Soft Sandals Outdoor for FfqxEwT(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x gommino Men's Shoes Gray Generic Loafer Moccasin y)) (gcd x y)))


=> Gray Generic Moccasin gommino Men's Loafer Shoes #'user/find-divisors
=> #'user/gcd
=> #'user/lcmLoafer Men's Moccasin Gray Generic Shoes gommino (lcm 4 6)
=>Plus adidas Fashion Ankle Pace High Sneaker Men's Black wB1Erqnw 12
(clojure.set/intersection #{:a :b :c}Shoes gommino Men's Loafer Moccasin Generic Gray #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uStyle Adams Rose Stacy Toe Loafer on Misty Driving Moc Slip Men's Cyrus Bit z7Sqa7xd4w}
			  #{:a :u :r}
			  Men's gommino Loafer Gray Moccasin Generic Shoes #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Pacific Rush New V3 Running Shoe Balance Black Men's Vazee gw8tw;; 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 Moccasin Loafer Men's Shoes gommino Gray Generic 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
Shoes Loafer Men's Gray Moccasin Generic gommino ;; 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