retire map-random-sample from probability to deterministic random

dgtized · Dec 2, 2023 · d9bc1e8 · d9bc1e8
1 parent 028feaa
commit d9bc1e8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 9 deletions.
diff --git a/src/shimmers/math/deterministic_random.cljc b/src/shimmers/math/deterministic_random.cljc
@@ -121,6 +121,9 @@
             (if (chance (pf x)) (xf x) [x]))
           coll))
 
+(comment (map-random-sample (constantly 0.1) (partial * 2) (range 10))
+         (mapcat-random-sample (constantly 0.1) (fn [x] [x x]) (range 10)))
+
 (defn jitter
   "Create a random unit vector and then scale it by `amount` to use as noise."
   [amount]

diff --git a/src/shimmers/math/probability.cljc b/src/shimmers/math/probability.cljc
@@ -38,12 +38,6 @@
   (frequencies (repeatedly 1000 #(weighted {:a 0.1 :b 0.9})))
   (frequencies (repeatedly 1000 #(weighted-by inc [1 2 3]))))
 
-(defn map-random-sample
-  "Apply `xf` to the subset of `coll` selected with probability density `pf` for
-  each element, with the unsampled elements intermingled as before."
-  [pf xf coll]
-  (map (fn [x] (if (chance (pf x)) (xf x) x)) coll))
-
 (defn mapcat-random-sample
   "Apply `xf` to the subset of `coll` selected with probability density `pf` for
   each element, with the unsampled elements intermingled as before. `xf` must
@@ -53,9 +47,6 @@
             (if (chance (pf x)) (xf x) [x]))
           coll))
 
-(comment (map-random-sample (constantly 0.1) inc (range 10))
-         (mapcat-random-sample (constantly 0.1) (fn [x] [x x]) (range 10)))
-
 (defn map-rand-nth
   "Apply `xf` to update a random element in-place in `coll`."
   [xf coll]