Datomic set intersection query

datomic-set-intersection.clj

(defn make-intersection-q
  "Generate an intersection q for arbitrary sets of features"
  [n]
  (assert (pos? n))
  {:find '[[?product-slug ...]]
   :in ['$ (->> (range 1 (inc n)) (mapv #(symbol (str "?v" %))))]
   :where
   (into ['[?product :cat.product/slug ?product-slug]]
         (map (fn [n]
                ['?product :cat.product/features (symbol (str "?v" n))])
              (range 1 (inc n))))})

(defn feature-intersection [db feature-slugs]
  (d/q (make-intersection-q (count feature-slugs))
       db
       (map (fn [feature-slug] [:cat.feature/slug feature-slug])
            feature-slugs)))

Thank you. That was helpful.