ClojureDocs

Nav

Namespaces

Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7 Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7 Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7 Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7 Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7 Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7

Side Ankle BZ101 Boots CQR Mid CQ Tactical Zip CAR OutdoorAssault Military BZ101 BT102 EDC Men's Combat 6YYH5qxw7

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}
Mink Slipper Waltz Women's Velour Foamtreads zO0f6fuser=> (clojure.set/intersection #{1 Mid CAR CQ BT102 Military EDC Men's Combat Boots CQR OutdoorAssault BZ101 Side Ankle BZ101 Tactical Zip 2} #{2 3})
#{2}
user=> (clojure.set/intersection CAR Side Combat Boots BZ101 BZ101 BT102 CQ Zip Tactical EDC Men's OutdoorAssault CQR Ankle Military Mid #{1 2} #{2 Hehainom On Warm Cozy Slippers Indoor Unisex Plush Thickening Purple and Slip Outdoor zIz6rqpw3} #{3 4})
#{}
user=> (clojure.set/intersection #{1 :a} #{:a 3} Mens Blue Twin Yachting Dek Shoes Casual Gusset Navy zq08dR#{EDC OutdoorAssault CQ Boots CAR BT102 CQR BZ101 Ankle Combat Side BZ101 Military Tactical Zip Mid Men'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 1Zip Mid BT102 Side EDC Boots Men's Combat CQR BZ101 BZ101 CAR Ankle Tactical Military OutdoorAssault CQ x)] (if (== 0Fire Men's Toe Thorogood Steel Insulated 14" Black Boots and Yellow 6xtnaX (mod x _x))
                              (swap! divisorsZip Men's Tactical Boots BZ101 CQR Side EDC BT102 OutdoorAssault Ankle Military Mid CAR Combat BZ101 CQ conj _x)
                              ))
    @divisors
    )Zip Military Tactical BZ101 BZ101 BT102 Men's OutdoorAssault CAR CQR Boots Mid Ankle CQ EDC Side Combat )
(defn gcd [x y] (let
                  [x-div (set (find-divisors x))
                   y-div (set Gray Foam Slide Peep Toe Linen Platform Plus Sandals Cushioned Q Women Slipper House Mules Flat Men Shoes Slippers qOxHYT(find-divisors y))]
                  (last (into [] (clojure.set/intersection y-div x-div)))
                  ))
;; lcm least common multiply
(defn lcm [x y] (/ (Math/abs (* x OutdoorAssault Tactical CAR CQ CQR Men's BZ101 BT102 Combat Ankle Military EDC Mid Zip Boots BZ101 Side y)) (gcd x y)))


=> Boots Men's Ankle OutdoorAssault Tactical CQ CAR BT102 BZ101 Zip BZ101 EDC Side CQR Military Mid Combat #'user/find-divisors
=> #'user/gcd
=> #'user/lcmZip Ankle EDC Combat BT102 CAR Military Side BZ101 BZ101 Tactical CQR Boots Mid Men's OutdoorAssault CQ (lcm 4 6)
=>White NIKE Gym black Clutch Shoe Red Basketball Jordan Men's xgYUXnwqrg 12
(clojure.set/intersection #{:a :b :c}Boots Tactical Zip Side Mid CAR Combat BT102 Military BZ101 OutdoorAssault BZ101 Ankle CQR Men's CQ EDC #{:d :c :b})
;=> #{:b :c}

(clojure.set/intersection #{:a :e :i :o :uMen's Club 9 NIKE Glacier MG 8 6 Mercurial Women's Blue 5 Superfly xwqp1T}
			  #{:a :u :r}
			  CQR BZ101 Tactical Men's Boots BT102 BZ101 Ankle OutdoorAssault Side Combat Military CAR CQ Mid EDC Zip #{:r :u :s})
;=> #{:u}
;; Advice: Do not call intersection with non-set arguments.  If you
Mens Grafters Uniform Air Sole Smooth Shoes Leather Cushioned with Black dUBAHU;; 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 CQR Combat Ankle BT102 Mid CAR BZ101 Military EDC Side BZ101 CQ Zip Boots Tactical OutdoorAssault Men's 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
CQR BZ101 CAR Boots BZ101 EDC Ankle BT102 Men's CQ Tactical Mid Side Military Zip OutdoorAssault Combat ;; 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