Don't allow uniform-deletion to delete :gap

2023-12-06 20:26:04 -05:00 · 2023-12-06 20:26:04 -05:00 · b40aff3d6d
commit b40aff3d6d
parent 28ab925601
1 changed files with 4 additions and 2 deletions
--- a/src/propeller/variation.cljc
+++ b/src/propeller/variation.cljc
@ -130,8 +130,10 @@ The function `new-individual` returns a new individual produced by selection and
  [plushy umad-rate]
  (if (zero? umad-rate)
    plushy
-    (remove (fn [_] (< (rand)
-                       (/ 1 (+ 1 (/ 1 umad-rate)))))
+    (remove (fn [item]
+              (and (not= item :gap)
+                   (< (rand)
+                      (/ 1 (+ 1 (/ 1 umad-rate))))))
            plushy)))

 (defn bmx