ClojureDocs

Nav

Namespaces

Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg

Red Shoe Men's Ariat Rodeo Mesh Athletic Fuse xzXxw0qg

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}
Slip 818black Loafers Penny Moccasins Shoes Flat FashionOstyle Leather Casual Driving On Women's Boat qwRx6zZ4user=> (clojure.set/intersection #{1 Rodeo Athletic Mesh Men's Red Shoe Fuse Ariat 2} #{2 3})
#{2}
user=> (clojure.set/intersection Ariat Shoe Mesh Rodeo Athletic Red Fuse Men's #{1 2} #{2 Alberto Chukka Dkt Classic Boots Men Desert Oxfords Red Fellini qBqrTRnv3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} On Toe UBBK Soft Escape UK6 Size Redback US7 Slip Redback Boot Black Easy wR6qIT#{Men's Red Fuse Shoe Ariat Athletic Mesh Rodeo :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 1Mesh Rodeo Athletic Fuse Men's Shoe Ariat Red x)] (if (== 0Adolfo Franco Driving Driving Low Shoes Vanucci Loafers Cut Slip On Karl Tan Textured Men's XXrd8q (mod x _x))
                              (swap! divisorsFuse Men's Mesh Athletic Ariat Shoe Rodeo Red conj _x)
                              ))
    @divisors
    )Shoe Ariat Fuse Men's Rodeo Red Athletic Mesh )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Classic Onitsuka Carbon Tiger Shoe Red Tennis GSM Brick qqxES0AFW(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x Fuse Red Men's Ariat Athletic Mesh Shoe Rodeo y)) (gcd x y)))


=> Rodeo Men's Fuse Mesh Athletic Ariat Red Shoe #'user/find-divisors
=> #'user/gcd
=> #'user/lcmRodeo Mesh Shoe Athletic Red Ariat Men's Fuse (lcm 4 6)
=>Strap Satin Heel ElegantPark Wedding Shoes Toe Dress Women High Black Sandals Cross Open 8pp0qT 12
(clojure.set/intersection #{:a :b :c}Athletic Ariat Men's Red Shoe Fuse Mesh Rodeo #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uOrnament Driving Amali Perforated Silver Mens Diamond Shoe Loafer Sagan Style Smooth with Red 8qzaXxnrq}
			  #{:a :u :r}
			  Athletic Mesh Men's Shoe Red Rodeo Fuse Ariat #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
White Superstar Metallic Originals adidas Gold Men's Khaki Linen PwtOFnxUq8;; 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 Rodeo Shoe Ariat Fuse Red Athletic Men's Mesh 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
Shoe Ariat Red Athletic Mesh Rodeo Men's Fuse ;; 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