Привет. такая простая функция не работает:

(defn INTERSECTION [A B]
  (reduce #(if (get B %2) (conj %1 %2)) '() A))

@andmed почему бы не воспользоваться clojure.set intersection?

@lapooh: а это задачка с 4clojure)) не могу))

вроде простая имплементация...

а глючит

а попробуйте (INTERSECTION #{:a 😛 :c :d} #{:x :c :e :a :f :d})

(INTERSECTION #{:a :b :c :d} #{:x :c :e :a :f :d})

`(INTERSECTION #{:a 😛 :c :d} #{:x :c :e :a :f :d}) => (:a :d)`

немае :c

у if не хватает else части

да, точно

👍:skin-tone-6: да, спасибо