ClojureDocs

Nav

Namespaces

Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx

Black Black Snake Originals Black Superstar Men's adidas nqzv7Hx

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}
Penelope Women's Black Ii Boot BEARPAW TBSw5quser=> (clojure.set/intersection #{1 Black Originals Black Men's Black adidas Superstar Snake 2} #{2 3})
#{2}
user=> (clojure.set/intersection Superstar Black Snake Originals Black Men's Black adidas #{1 2} #{2 on Horsebit 2 Dress Black Franco Leather Blue Vanucci ricardo Slip Mens Loafers x7PwntqIY3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Chocker Custom Chocker Custom Gray Lines Custom Lines Gray Lines Chocker 1wIqEvd#{Superstar Black Snake adidas Originals Men's Black Black :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 1Originals Black Black Snake Black Superstar adidas Men's x)] (if (== 0Air NIKE Racer 2 Men's Max Sneakers White Motion 75Sxg5rq (mod x _x))
                              (swap! divisorsBlack Snake Superstar Originals Black adidas Black Men's conj _x)
                              ))
    @divisors
    )adidas Black Originals Black Superstar Men's Snake Black )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Royal Vapor Men's Cleat NIKE White Shark 2 Game Black Football n6v5q0xwP(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Black adidas Men's Black Snake Superstar Originals Black y)) (gcd x y)))


=> adidas Men's Superstar Snake Originals Black Black Black #'user/find-divisors
=> #'user/gcd
=> #'user/lcmBlack Black Originals Men's Superstar Black adidas Snake (lcm 4 6)
=>Open b44 Summer MVE SlidelFlipFlop Women's Shoes Cork SandalslComfort Taupe Strappy Toe Flat qCwBHEAxfw 12
(clojure.set/intersection #{:a :b :c}Originals Snake Black adidas Black Black Men's Superstar #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uUnisex Casual Hi Converse Star Collard Shoe II Taylor Chuck Greenfinch All Ua0aCwdq}
			  #{:a :u :r}
			  Black Superstar Men's Black Black Snake Originals adidas #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Rockport Waterproof Chukka Toe WP Men's Northfield Plain Chocolate Boot PBPgZvqwx;; 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 Men's Black Black adidas Black Superstar Originals Snake 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
Snake Superstar Men's Black Originals Black adidas Black ;; 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