Ignore genetic differences from empty genomes.

lspector · Apr 16, 2017 · 89ec177 · 89ec177
1 parent 5923111
commit 89ec177
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/clojush/pushgp/genetic_operators.clj b/src/clojush/pushgp/genetic_operators.clj
@@ -99,12 +99,16 @@
      (case (:criterion random-screen)
        ;
        :genetic-similarity-to-parent
-       (max (sequence-similarity genome (:genome parent1))
-            (sequence-similarity genome (:genome parent2)))
+       (if (some empty? [genome (:genome parent1) (:genome parent2)])
+         1
+         (max (sequence-similarity genome (:genome parent1))
+              (sequence-similarity genome (:genome parent2))))
        ;
        :genetic-difference-from-parent
-       (- 1 (max (sequence-similarity genome (:genome parent1))
-                 (sequence-similarity genome (:genome parent2))))
+       (if (some empty? [genome (:genome parent1) (:genome parent2)])
+         1
+         (- 1 (max (sequence-similarity genome (:genome parent1))
+                   (sequence-similarity genome (:genome parent2)))))
        ;
        :reproductive-similarity-to-parent
        (if (:dummy parent1)