init research

2026-02-08 11:20:43 -10:00
commit bdf064f54d
3041 changed files with 1592200 additions and 0 deletions
@@ -0,0 +1,14 @@
+(ns tech.v3.dataset.set-test
+  (:require [tech.v3.dataset :as ds]
+            [tech.v3.dataset.set :as ds-set]
+            [clojure.test :refer [deftest is]]))
+
+
+
+(deftest union-intersection-test
+  (let [ds-a (ds/->dataset [{:a 1 :b 2} {:a 1 :b 2} {:a 2 :b 3}])
+        ds-b (ds/->dataset [{:a 1 :b 2} {:a 1 :b 2} {:a 3 :b 3}])]
+    (is (= [{:a 2, :b 3} {:a 3, :b 3} {:a 1, :b 2} {:a 1, :b 2}]
+           (ds/rows (ds-set/reduce-union [ds-a ds-b]))))
+    (is (= [{:a 1, :b 2} {:a 1, :b 2}]
+           (ds/rows (ds-set/reduce-intersection [ds-a ds-b]))))))