Merge adjacent gaps

2023-12-10 23:11:08 -05:00 · 2023-12-10 23:11:08 -05:00 · 0b2024ec6e
commit 0b2024ec6e
parent 435eb59371
1 changed files with 6 additions and 5 deletions
--- 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