Merge adjacent gaps

lspector · Dec 11, 2023 · 0b2024e · 0b2024e
1 parent 435eb59
commit 0b2024e
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/propeller/variation.cljc b/src/propeller/variation.cljc
@@ -180,11 +180,12 @@ The function `new-individual` returns a new individual produced by selection and
         b-genes (utils/extract-genes plushy-b)]
     (flatten
      (interpose :gap
-                (mapv (fn [g]
-                        (if (< (rand) rate)
-                          (apply min-key #(bmx-distance g %) b-genes)
-                          g))
-                      a-genes)))))
+                (remove empty?
+                        (mapv (fn [g]
+                                (if (< (rand) rate)
+                                  (apply min-key #(bmx-distance g %) b-genes)
+                                  g))
+                              a-genes))))))
 
 (defn new-individual
   "Returns a new individual produced by selection and variation of